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Editorial 



Ouf ! Exposer dans trois salons sur la micro-informatrque en six semaines, e'est franchement Uup ... 
Certes, cela nous a donne I'occasion de rencontrer de nombreux lecteurs anciens et nouveaux, mais il 
est difficile de gerer trois salons puis d'exploiter leurs resultats sans prendre de retard. 

Le Steak Printemps s'est tres bien passe, avec un monde fou autour des stands d'AppIe et de Pom's. 
Un peu moins de monde a Micro Expo, dans un style plus 'piufessionnei'. Et. pour couronner le tout, 
ce tout premier Apple Expo tres reussi, oil nous avons eu le pfaisir de rencontrer Steve Wozniak {Wop. 
pour les intimes). Bill Budge (createur entre autres de Raster Blaster, Pinball Construction Set et Mouse- 
Paint) et Howard Marks (createur de Jane), pauni d'aulres artistes, Quand pourrons-nous ainsi (aire la 
connaissance d'un createur de materiel ou d un auteur de logiciel francais devenu milliardaire A moins 
de 25 ans ? Dans longternps. helas, je le crains. 

Les deux premieres revues francaises de micro-iniormatique specialises sur un materiel etaient Pom's 
et La Commode, en septembre 1981. II y a aujourd'hui cinq revues francophones sur IBM PC/XT. 
deux sur I Apple, ... au total une bonne quinzaine. Nous fe.tnns la naissance recente de Theophile. la 
revue pour utilisateurs du T07 de Thomson. Nous avons bien ri quand nous avons appris que la 
nouveUe version du T07 s'appelait le M05 : nous aurons alors peut-etre une revue baptisee Hemo- 
phile. dontle slogan pourrait etre "La revue dps vampires de I'informatique". 

Dans ce numero. vons trouverez tout d'abord de nombreux bancs d'essai. Guy Lapautre vous pre 
sente Thinktank et le resultat de ses tests sur la compatibility entie I 'Apple f/C et son "grand frere " ffe> 
Alexandre Duback a vu pour vous LIGHT 1, et Alexandre Avrane vous fivre ses premieres re- 
flexions sur ProDOS et Bugbyter. Dans le domaine du materiel. Vincent Plassard nous fait vivre sa 
rencontre avec les lecteurs 1 mega de Micro- Expansion, tandis que Kriss Grafiti el moi-meme vous 
donnons quelques nouvelles du Macintosh. 

Gerard Michel poursuit la serie d'initiation a I'assembleur et vous presentp egalement le BAS1CIUM, 
un Applesoft enrichi pour la gestion d'ecran ct la saisie de variables, En toute logique. Roland Jost 
vous offre des PEEHs a yoyo apies les POKEs du Pom's 11. Encore de nombreux utilitaires dans ce 
numero. avec la documentation de tables de shapes par Erick Ringot 1'impres.sion des variables d'un 
programme Basic par Laurent Esnault. des routines de HOME presentees par Philippe Francois, un 
programme de reduction des images HGR par Patrice Neveu et un petit outil d'analyse de la VTOC 
par Guy d'Herbemont. 

Dominique Bernardi vous perrnet d'exercer votre adresse avec Ordralphabetix et Jerome Leclercq 

propose un bloc notes a tous ceux d' entre vous qui perdent leurs "petits papiers "... Les micro-informa- 
tions du jour vous seront presentees par Jean-Michel Gourevitch et vous trouverez egalement dans 
ce^numiro 13 un sommaire thematique des articles publies par Pom's de ses origines jusqu'au numero 

Depuis ce dernier numero sest cree k club Apple; il cvuipie plus de 2000 membres en moins de deux 
mois. II est vrai que ce club beneficie du soutien total d'Appie Seedrin. ce qui n'est pas negligeahle 
Comme notre revue, il semble avoir pour but d'apprendre aux utilisateurs Apple a tircr un meilleur parti 
de leur materiel. Nous ne pouvons quencouragei un tel objectiL 

A tout hasard, nous vuus rappelons que Pom's recherche toujours un collaborates (temps parttel ou 
temps plein) connaissant tres bien I'Apple, au mains an niveau du Basic et de I'assembleur, capable 
d'ecrire clairement et sans faute d'ortographe. Aucune contrainte de sexe ou d'age ... 

Pour finir, nous vous donnons rendez-vous fin septembre. au stand 172 de la boulique micro du Sicob. 
sur le parvis de La Defense. 

Herve Thiriez 



En couverture . STEVE WOZNIAK et BILL BODGE a Apple-expo 
(photo. -IL. DCSNOS) 
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Mcs premiers emois 

Kriss Graffiti 



II y a des femmes qui marchent a 
l'ambition. d'autres a !' argent, d'au 
ties a Id security ; moi je marche a 
I affection . et j'ai tout Fequipement 
qui va avec : un grenicr plcin de 
trues dont je ne sais pas me d£baras- 
ser. un chien. quelques vrais amies, 
des vrais Jules et des Jules vrais. et 
blen sur, un collaborated. OLI- 
BRIUS INOXYDABLE. 

Comme un passe; beaucoup de 
temps ensemble, il taut qu'il soit 
syrnpathique. solide, agreable a re- 
garded capable ddbatlre un travail 
de titan (mais un petit peu moins 
que moi quand meme. histoire de 
garder le leadeiship dans uiun enUe- 
prise). et puis surtout ii taut qu'il 
m'aime d'un amour ergonomique. 
Cel amour regule les lapporls de tra- 
vail beaucoup mieux que les syndi- 
cats. mais il comporte un risque im 
poriant : el si lout a coup inoxydable 
tombait amoureux de quelquun 
d : autre ? Son rendement risquerait 
d'etre considerablement diminue. 
Cest pourquoi j'en suis arrivee a la 
conclusion qu'il fallait lui trouver une 
autre passion, el la lui Irouver rflpi- 
meme. Mais qui ? Mais quoi ? 

Cest a ce moment la que les trom 
pettes celestes onl souffle leurs notes 
electroniques et que Jean-Louis Gas- 
see, Ic directcur d' Apple France, 
m'est apparu en reve. nageant la 
brasse dans une piscine d'octets phos- 
phoresccnts. Naturellement. comme 
je ne connaissais lien a rien. certe 
premiere vision resta pour moi totale- 
ment enigmatique. 

Ensuite, j'ai eu d'autres visions tout 
aussi sybillines, mais de plus en plus 
frequentes. Une deuxieme, ou mon 
Inoxydable, habille en prestidigita- 
teur, sortait des pommes et des 
souris d'un ecossais debonnaire et 
comprehensif... Et enfin une troi- 
sieme, un ecossais qui soufflait dans 
une cornemeuse faite avec deux tres 
belles pommes grignotees... 

Je suis obligee d'etre un peu severe 
avec le service d'apparitions d ! Apple. 
mais je rty comprenais toujours rien. 
jusqu'au jour ou j'ai rencontre le ca- 
pitaine de Pinformatique legere. 
Jean Louis Gassee. en chair et en os, 
et ou je lui ai raconte mes reves. II 
etait assis sur un trone dore, tres 
beau, et il m'a dit « Quand le reve 
reviendra, n'oubliez pas de pronon- 
cer cette phrase + J'INITIALISE LA 
DiSQUETTE + ». Cest ce que j'ai 
fait et, en me reveillant le lendemain 
matin, j'ai vu. a cote de mon lit. un 



Macintosh qui avait envie de me taire 
de Fceil, et je lui ai donne 1'autorisa- 
lion de le faire. Depuis ce jour, je 
suis une cheftesse dentreprise ra- 
dieuse. Inoxydable est amoureux de 
Mac et travaille deux fois plus et 
deux fois plus rapidement. Quant a 
ma vertu informatique, elle est defini- 
Livemenl compromise. 11 faul dire 
quintormatiquement parJant. j'etais 
totalement vierge et que 1'initialisa- 
lion me sernblait une epreuve insur- 
montable des que je jetais un regard 
inquiet en direction des ordinateurs a 
langage BASIC. Pascal, ou autres... 
Avec Mac, pas besoin de passer par 
ces chernins epineux pour beneficier 
de ses avantages. Cest un profes- 
sion nel du charme, et e'est lui qui 
sadapte a vous. Vous voulez couper. 
coller, copier ? II vous suffit de poin- 
ter la souris dans un menu ecrit en 
francais francais. et de choisir. 




Cest d'abord la suppression du bruit 
qui m'a seduite. Depuis des annees. 
Inoxydable et moi eciivions dans la 
meme piece, sur deux machines 
electriques qui faisaient un raffut 
d'enfer, et. au-dela d'un certain 
nornbre d'heures de travail, on etait 
oblige de mettre des boules Quies, 
ce qui nuisait gravement a la 
communication. 

Ensuite. mon bureau, qui avait une 
reputation quasi Internationale de 
foutoir. est devenu clair et ordonne. 
Ce n'est pas tres informatique, ce 
que je vous dis la, mais 1' atmosphere 
qui regne dans un bureau a une in- 
fluence considerable sur la qualite du 
travail. Au lieu d'etre en lutte perma 
nente contre les stress du bruit du 
dossier illisible, du papier perdu, du 
carbone sale et des archives envahis- 
santes, l'espace-boulot a pris un air 
de variances pt on pent meme y tra- 



vailler en musique. avantage appre- 
ciable dans la profession que 
j'exerce. 

Bien sur. au debut, Macintosh a un 
petit cote « hallucinogene a la califoT- 
nienne » et lo distorsion qu'il exerce 
sur le temps n'est pas sans danger. 
S'il est vrai que mon temps de travail 
est reduit de plus d'un tiers par les 
avantages considerables du traite- 
ment de texte. je Hois avouer que les 
joies de MacPaint et MocWrite et le 
confort nouveau qu'il m'offre font 
que j'oublie tofalempnt I'heure et 
qu'il n est pas rare que je me re 
trouve a 6 heures du matin en tram 
He peaufiner un texte que j'aurais 
abandonne depuis longtemps si 
j'avais eu a le retaper entierement. 
Mais, ce n est pas moi qui vous 1'ap- 
prendrai, quand on passe des nuits 
blanches avec quelqu'un. e'est que 
l'echange d'information est agreable 

Travailler au mot pres. a la virgule 
pies, offre une liberie de creation to- 
talement revolutionnaire et dame le 
pion a la paresse. L* esprit, degage de 
toutes sortes de contraintes penibles, 
retrouve la ioie pure de l'ecriture. 

En plus, c est joli. Les caracteres sont 
vanes, dans leur forme et dans leur 
taille, I'ecran est clair. on pent en re- 
gler la luminosite. on peut dessiner et 
inteqrer les dessins aux textes. ou 
T inverse, et quand on est vraiment 
accro. on peut mettre le beau Mac 
dans son sac de voyage et Vemporter 
en week-end. Mais our, mais oui, £3 
m'est arrive^ ! 

Ah, une derniere question, quel est 
le sexe de Mac ? 

Inoxydable pretend que e'est une 
femme. a cause de lo penetration des 
disquettes indispensable avant route 
nnmmuniration vraiment intime. mais 
moi je pretends que c est un homme 
qui a 1 T extreme delicatesse de mettre 
un KILT et de montrer ses jambes, 
qu'il a fort jolies, en cette saison pro 
pice aux amours. 

Maintenant que ie suis initialisee. 
j' envisage serieusement de faire un 
lexique des mots tendres ou injurieux 
que les utilisateurs d'ordinateurs em- 
ploient vis-a-vis de leur nouveau 
compagnon. et qui se repercutent 
dans la vie quotidienne. Par exem- 
ple. quand un homme me fait la 
cour d'une maniere qui me deplait ? 
Je lui reponds SYNTAX ERROR... 
Sans doute parce qu'avec Macintosh 
je n'ai jamais le chagrin d'en aniver 
a de teiles extremites. M 
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PMiiiiiiiiiwiiiiiiijiiiiiii mi 



BONJOUR LES PRIX!! 







NOS PRIX SONT f" 




Carte langage 


450 


Speech card 


390 


Carte 128 k ram 


1550 


Carte horloge 


550 


Carte 80 colonnes 


745 


Joystick 


165 


Interface serie 


600 


Ventilateur 


280 


Super serie 


1100 


Controleur de drive auto switch 13/16 


380 


Interface parallele 


420 


Microdrive 3" 2200 


Grappler + buffer 16 k 1350 


Moniteur vert 12" 


950 


Carte modem 


2200 


Disquettes 5" 1/4 S.F./D.D. par 1 boite 


179/boite 


Carte Z 80 


650 


" 5boites 


175/boite 


Wildcard 


650 


" 10boites 


170/boite 






AU DESSUS, NOUS CONSULTER 





Carte bicuo ct eurocard acceptees 
Vente par correspondance : nous consulted 



Computer 3 

. 3, rue Papillon 75009 Paris - Tel. 523.51.15 
(metro Poissonntere) 




LILLE LILLE LILLE LILLE 



m b d C Ap P ,e //e ' A PP |e % Mac-lntoch, 

BFM 1 86. dragon, oric, alice, casio 

m b d C disc l uettes ' F'exettes, 3M, Verbatim 
* listing, rubans encreurs. 

m b d C le conseil ' ,e materiel, les peripheriques 
* les logiciels, les consommables, 

m.b.d.c. ,e S.A.V. sur place. 

le Service Complet. 



mbdc 1 72 - RUE SOLFERINO. 59800 LILLE — TEL. (20) 57.91 .87 

OUVERT DU MARDI AU SAMEDI DE 9h30 3 12h ET DE 14h30 3 19h 



[-'instruction HOME est une des ins- 
tructions les plus utilisees dans Igs 
programmes. Elle consiste a nettoyer 
I'Gcran texte : HOME en Applesoft et 
PagefOutput) en Pascal font apppl a 
la routine du moniteur situee en 
SFC5S (-936 en decimal). 

Voici une sene de routines qui net- 
toient Tecran de maniere plus origi- 
nate en remplissant lecran avec le 
caractere de votre choix. 

Le programme se situe en $9418 
sous les buffers du DOS et comportc 
6 points d'eniiee : 

• CALL 37910: cffacement tres ra- 
pide (5437 cycles machine contre 



HOME, sweet HOME 

Philippe Frangois 



15323 generalementj. 

CALL 37944 : effacernent vers le 

bas: 

CALL 38008 . effacernent vers la 
gauche; 

CALL 38051 ; effacernent vers le 
centre; 

CALL 38113: effacernent en ci- 
seaux; 

CALL 38184 ; effacernent en spi- 
rale : spectaculaire mais malheu- 



reusement tres long. 

Vous uouvere*: ci-dessous les pro- 
grammes Applesoft et Pascal de de- 
monstration ct les listings source en 
Big Mac. 

N'oubllez pas d'lnitialiser HIMEM a 

37910 et de "poker"" le code ASCII 
du caractere de remplissage en 

37911 : ainsi POKE 37911.36 vous 
couvrira dp Hollars ■ 



m 



i 

2 
3 



HOME. SWEET HOME.. 



IO 

11 

12 

^ 

ib 
16 
i'/ 
i« 

ay 
£0 
£1 

£*i 
£4 
24 

25 

2fa 
J/ 

23 
30 
31 
32 
33 
34 
35 
36 



• CONST • 



SPACE 
ZERO 



ADKLiGN t = 
Li UNE 
CuilPlhUK = 



Big Mac 



sflu :ascii eaoace 



s_-8 
so* 

Sr- 



XL 
Xft 
YT 

Yb 



SOO 
HCNT • i 
VCNT- 1 
XL*1 
XK*1 
YT*1 



» EFFACbMbNI' KAPlDb • 



3b • 

33 
SO 
41 

12 SUITE 

13 

44 

45 

46 

47 

48 

49 

SO 

51 

32 

53 • 

54 * 

55 * 

56 •••••• 

57 



1.1M 
fcUK 
LDY 
5TA 
5T A 
STA 
ST A 
ST A 
Dl A 
ST A 
STA 
DEY 
BPL 
RTS 



#fcSPACE 

*H9 

S400, Y 
SW, 1 
5 SOU. Y 
S7UO, Y 
S480. Y 
SDHU, Y 

S/tiO. 1 

sunt 



unes <J 
£ 
4 
b 
1 
3 
5 
/ 



a lb 
iu la 

V£ 20 

14 22 
9 17 

11 ±9 
1J 21 

15 23 



EFFACEMENT VER5 LE BAS • 



59 


• 








60 




LDA 


• 24 




61 




STA 


y fe 




62 










63 


ENCORE 


LDX 


• 23 


raerniere iiane 


6*3 




LDA 


A DRL . X 


;charge*ent ae ia partie 


65 




STA 


A URL I ONE 


:on stocke aana aarljqne 


66 




LDA 


ADRH, X 


;charge»ent partie haute 


67 




3TA 


A DRLl GNE * 


3 


68 


NEXT 


LDA 


ADRLICNE 




63 




STA 


L.IGNE 




70 




LDA 


ADRLIGNE- 


1 


71 




STA 


LIGNE *1 




72 




DEX 






73 




LDA 


A DRL. X 





74 


STA 


ADRLIGNE 


75 


LDA 


ADRH , X 


76 


STA 


ADRLIGNE'l 


77 - 






78 


LDY 


#39 ;on part de la droite 


79 DEPLACE 


LDA 


(ADRLICNE) ,Y rdeplace r:aract. vers bas 


SO 


STA 


( LIGNE > ■ Y 


ai 


DEY 




82 


BPL 


DEPLACE 


83 • 






84 


CPX 


#00 ;a-t-on attemt le baa? 


B5 






86 


BEQ 


ErFSCM 


87 


BPL 


NEXT : =■ imp next 


88 - 




89 EFFSOM 


LDY 


#39 ; coin droit 


90 


LDA 


#E5PACE 


91 EFFACE 


STA 


I ADRLIGNE) ,Y 


92 


DEY 




93 


BPL 


EFFACE 


94 • 






95 


DEC 


COMPTEUR 


96 


BNE 


ENCORE 


97 


RTS 





99 
100 
101 
102 
103 
104 
105 
10b 
107 

108 
109 
110 
111 
122 
113 
114 
115 
lib 
117 
118 
119 
120 
121 
1 22 
123 
124 
125 
1 £b 
127 
128 
129 
130 
131 

X33 
134 
135 
1 3b 
±37 
1JO 
139 
140 
141 
142 
143 
144 
145 
146 



••(•••■••••••a** •••••••••#••■ 

■ EFFACEMENT VERS LA GAUCHE * 



LDA #40 ;40 caracterea par Iiane 

STA COMPTEUFi 



ENCORE* LDX #ZERQ 

NXTLIGN LDY *ZER0 

L.DA ADRL, X 

5TA ADRLIGNE 

LDA ADRH , X 

STA Al>RLIGNE*1 
INY 

LDA (ADRLIGNE). Y 
DEY 

STA (ADRLIGNE). Y 



; ligne aommeT 
:colonne de oauche 



CONT 



INY 
CPY 



BNE CONT 

- 

• DERNiERE COLONNE • 



: aern lere coJonne : 



LDA 


■ESPACE 


STA 


(S28) . Y 


INX 




CPX 


#24 


BNE 


NXTLIGN 


DEC 


COM PTE UW 


BNE 


ENCUKE2 


K15 





: aerniere iigr.e.* 



■ EFFACEMENT ?AK LE CENTRE • 



LDY »20 ; initial, compteur ce (juul-.k- 

5TY CQnPTEUh 

■ 

bOUCLE LDX #2ER0 : iiuLiaiiautiun iiMiie 

NEXTLlGN LDY >lo ; in i 1 1 a 1 * so t iijii colon tie 

LDA ADRL . X 

STA AL»RLIGNE 

LDft ADRH, X 

STrt ADRLIGNE*! 
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147 DEPLACD 

140 

140 

150 

151 

152 

153 

154 * 

155 OAUCH 
156 

257 

156 • 
159 DEPC 
160 

161 
162 
163 
164 
lbb 
166 
lb7 - 
168 
169 
170 
171 
172 
173 
174 
175 
17b 
177 
178 
179 



DROIT 



LDA 
INY 
3TA 
DEY 
DEtf 

dcy 

QPL 

LDA 
STA 
LDY 

LDA 
DEY 
STA 
INY 
CPY 
BEQ 
INY 
BPL 

LDA 
STA 
1NX 
CPX 
BNE 

DEC 
BNE 
RTS 



(ADRLIGNE) , Y jrecuper. d'un caractere 

i ADRLIGNE; , Y ;on le deplace a'un rang 

GAUCH ;<ju sort si dernieie col 

DEPLACD ;-JHP 

#HaPACE 

< ADRL IGNE > , Y 

#21 ;xinLiali5ation col 

<ADRLI&NE> , Y;un place un caractere 
< ADRLIGNE> . Y 

#39 ;est--on a la aerniere col 

DROIT ;si oui on auiL 



DEPG 



; »JHP 



ffESPACC 

< ADRLIGNE > , Y 

#24 f<derni*rw Ixguttf 

NCXTLIGN 

COMPTEUR 
DOUCLE 



ISO - EFFACEMENT GAUCHE - DROI TE 6 DROITE -GAUCHE - 



1 U1 
iSi 








260 1 


18> 








261 


-i to ^ 




1 nv 
LDX 


rtiQ 


2b* 


184 






PCIM PTCtt O 
vUn I ICun 


263 


185 




LDX 


#2ER0 


264 


186 


GAUCHE 


LDA 


ADRL , X 


260 


387 




STA 


ADRLIGNE 




too 




LDA 


ADRH ( X 


2o? 


1 ao 




STA 


ADRL JGN E- 1 


200 






LDY 


#=01 


289 


1Q1 

— r> x 


DeFL«'-l» 


LDA 


< ADRLI C NE > . Y 


20O 


192 




DEY 


201 


"19"3 






(AUKLJ.L?rftL^ , Y 


202 


1 Sii 




T H V 




200 


1 S5 








294 


1 9fi 




ecu 




2 OS 


197 




I NY 




23b 










207 


199 








200 


206 


n 1 n ivi * if 


1 in 


rta ft ri 


299 


201 




Ct ft 


(flUnLil/Ntl .1 :a co moment y = J9 


JOU 


20? 




f UV 


301 






1 I»A 

1-1.1 A 


A ftp I V 
AUK I. , X 


102 


204 






ADPI 1C >J P 


303 


?o^s 




LUA 


ADRH . X 


304 


206 




c.ta 




305 


207 








30b 


20« 


DFPt ACDT 


DEY 




3 07 


20s 




LDA 


(ADRLIGNE* ,Y 


308 


21rt 




1MV 


I ADRLIGNE J , Y 


300 


21 1 




STA 


310 


212 




DFY 




311 


213 




ftFQ 


BLANCL 


312 


214 




RNE 


DEPLACDT 


313 


215 


• 






314 


216 


Bi.AMCI 


LDA 


fESPACE 


315 


217 




STA 


(ADRLIGNE) .Yja ce moment y-0 


316 


21ft 




INX 


317 


219 




CPX 


#24 ; termne? 


31a 


220 




&MC 


GAUCHE 


319 


221 




DEC 


COMPTEUR 


320 


22? 




BNE 


B0UCLE2 


321 


273 




RTS 




322 


224 

225 
226 


■ 






323 
324 
325 




•HOMF 


* FN SPIRALE 


227 








32b 


228 


• 






327 


229 


DEBUT 


l.DA 


#24 ; pour 24 liqnee 


328 


230 




STA 


Ul?MT 


329 


231 


DFH1 


1 DA 


#40 ; oour 40 colonnea 


330 


232 




STA 


HCNT 


331 


233 


DEB? 


JSR 


ROTATION 


332 


234 




I. DA 


#FSPACE 


333 


23b 




STA 


S&26-12 ; au ifiiiou de 1 ' ocran 


334 


236 








33b 


237 




DEC 


HON 7 


336 


238 




BNF 


DFR2 


337 


239 




DEC 


VCNT 


338 


240 




BMP. 


DPrti 


339 


241 




RTS 


: e'est iim ! 


340 


242 


■i 






341 


243 


ROTATION 






342 


244 




LDA 


*SOt1 


343 


245 




STA 


VL : bord qiuche 


344 



10 



246 


STA 


YT 


247 


LDA 


#23 


248 


STA 


YB 


249 


LDA 


#39 


25U 


STA 


XR 


25± • 






252" 


JSR 


B AS 


2bjs 


BEG 


R0T2 


2t>4 KUTl 


JSR 


BAS 


25ti 


DEC 


YB 


25b HUI'2 


JSR 


GAUCHEi 


257 


INC 


XL 


25o 


JSR 


HAUT 


25* 


INC 


YT 


2b<J 


JSR 


DROIT 1 


261 


DEC 


XR 


2o2 


LDA 


YT 


263 


CMP 


Yb 


2o4: 


fiCC 


KOTl 


260 


RTS 





: sontnet 

: Das 

: bord droit 

: on part flu cote qauche 



2oo • 

267 

266 -ON 5E DEPLACE VERS LA GAUCHE EI • 

26* - VEKS LE BAS 

270 * ......... 

271 ■ 

272: BAS 
273 

274 DASl 

275- 
27fc» 
277 
27o 
279 



LDX 

DEX 
JSR 
LDA 
PMA 
INX 
JSR 
PLA 
STA 
DhX 
CPX 
bNfc 
RTS 



XL 
Yb 



CALCULE 

1 AuKLIGN£> , Y 



CALCULE 

i ADRLIGNE t ,Y 

YT 
»A31 



VERS LE HAUT 



I1AUT 



LDX 
1 NX 
JSR 
LDA 
PHA 
DEX 
JSR 
PLA 
STA 
1 NX 
CPX 
ONE 
RTS 



CALCULE 

( ADRLIGNE) , Y 



CALCULE 
(ADRLIGNE) . Y 
Yb 

HAUT1 



•ON Sl DEPLACE VERS LE OOMMET ET- 
• VERS LA GAUCHE 



LDX 


YT 




JSR 


CALCULE 




LDV 


XL 




INY 






LDA 


(ADRLIGNE) 


Y 


DCY 






STA 


( ADRLIGNEJ 


Y 


INY 






CPY 


XR 




BNE 


GAUCIIE2 




RTS 







............ ........ ........ ..... 

• ON SE DEPLACE VERS LE BAS ET - 
VERS LA DROITE 



DM01 Tl 


LDX 


m 




JSR 


CALCULE 




LDY 


XR 


DROIT2 


DEY 






LDA 


(ADRLIGNE) ,Y 




INY 






STA 


t ADRLI ONE ; ,Y 




DEY 






CPY 


XL 




BNE 


DR01T2 


4 


RTS 






JL DE 


t ' A DRESSE - 
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34S CALCULE LDA ADRH.X 

3*16 3TA ADRLlGNE'l 

2+7 LDA A DHL , X 

3*6 3TA ADRLIGNE 

350 • 

351 - PAftTIL 1*AS*L i>LS ALpRLSSGS 

352 - 

353 ADM. JILX OOOOOO0OOO6OOOGO ;ligne& 

354 HEX 20A020A020A020AO ;hane& 

355 JILX bODObOD050D050DO :liones 



PrtGH TEXT - 



0-7 

e-it> 

lfa-23 



Jbo • 

JD/ * PAKUL HAUTE UE5 AURESSES PA&E TEXT • 
• 

360 ADRri flfcA 

361 HEX 

362 HEX 

363 • 

364 • 

365 LSf\ Ut-f 



U4U4U^UbUfaObU/t>7 ;lignes 0-7 
U4U40DW^0bl>60/a/ ;iigneB 8-25 
OKJlutxisobObO/U/ ;lignes 16-23 



1 REM »• ESSAI SWEE POKE 37911, ASC 

T HOME ** (AS) 

30 CALL 37910: CALL 3 60 
5 HOME ! VTAB 1: HTAB 7944: REM EFFA 

CEMENT PAR LE B 
AS 

40 CALL 37910: CALL 3 

8008: REM EFFA 70 
CEMENT PAR LA G 
AUCHE 

50 CALL 37910: CALL 3 

8051: REM EFFA 80 



VTAB 1 : HTAB 
11 : PRINT "HOM 
E , SWEET HOME - . 



10 HIMEtt: 37S10: PR1N 
T CHRS (4>"BL0 
AD SWEET HOME" 

20 INPUT "DONNEZ LE C 
ARACTERE 



CEMENT PAR LE C 
ENTRE 
CALL 37910: CALL 3 
8113: REM EFFA 
CEMENT GAUCHE D 
RQITE-DROITE GA 
UCHE 

CALL 37910: CALL 3 
8184: REM EFFA 
CEMENT EN SPIRA 
LE 

END 



Recapitulation HOME 


94A0- 
94A8- 


DO DA 
00 AO 


60 
12 


AO 
BD 


14 

DO 


84 

95 


FE 
85 


A2 
28 


95^0- 
9558- 


6F 95 
05 20 


FO 
9F 


05 
95 


20 
E6 


6F 

02 


95 C6 
20 87 














94B0- 


BD E8 


95 


85 


29 


Bl 


28 


ca 


9560- 


95 E6 


04 


20 


B2 


95 


C6 03 














94B8- 


91 28 


88 


FO 


03 


88 


10 


F5 


9566 


A5 04 


C5 


05 


90 


E6 


60 A4 


9416- 


A9 


3F 








94C0- 


AS AO 


91 


28 


AO 


15 


Bl 


28 


9570- 


02 A6 


05 


CA 


20 


C5 


95 Bl 


9418- 


49 


80 AO 77 


99 


OO 


04 99 


94C8- 


88 91 


28 


C8 


CO 


27 


FO 

2S 


03 


9578- 


28 48 


E8 


20 
04 


C5 


95 


68 91 


9420- 


00 


05 99 00 


06 


99 


OO 07 


94D0- 


Cfi 10 


F3 


A9 


AO 


91 


E8 


9580- 


28 CA 


E4 


DO 


ED 


60 A4 


9428- 


99 


SO 04 99 


80 


05 


99 80 


94D8- 


EO IS 


DO 


CD 


C6 


FE 


DO 


C7 


9588- 


03 A6 


04 


E8 


20 


C5 


95 Bl 


9430- 


06 


99 80 07 


88 


10 


E5 60 


94E0- 


60 A2 


28 


86 


FE 


A2 


00 


BD 


95SO- 


28 48 


CA 


20 


C5 


95 


68 91 


9438- 


A9 


18 85 FE 


A2 


17 


BD DO 


94E8- 


DO 95 


65 


28 


BD 


E8 


95 


85 


9598- 


28 E8 


E4 


05 


DO 


ED 


60 A6 


9440- 


95 


85 28 BD 


E8 


95 


85 2-9 


94F0- 


29 AO 


01 


Bl 


28 


88 


91 


28 


95AG- 


04 20 


C5 


95 


A4 


02 


C8 Bl 


9448- 


A5 


28 85 06 


A5 


29 


&5 07 


94F6- 


C8 CO 


27 


FO 


03 


ca 


10 


F3 

95 


95AS- 


28 83 


91 


28 


ce 


C4 


03 DO 


9450 


CA 


BD DO 95 


85 


28 


BD E8 


95O0- 


A9 AO 


91 


28 


ES 


BD 


DO 


95B0 


F5 60 


AG 


05 


20 


C5 


95 A4 


9458- 


95 


85 29 AO 


27 


Bi 


28 91 


9508- 


85 28 


BD 


E8 


95 


85 


29 


88 

02 


95B&- 


03 88 


Bl 


28 


C8 


91 


28 88 


9460- 


06 


88 10 F9 


EO 


00 


FO 02 


9510- 


Bl 28 


C8 


91 


28 


88 


FO 


95C0- 


C4 02 


DO 


F5 


60 


BD 


E8 95 


9468- 


10 


DK AO 77 


A9 


AO 


91 28 


9518- 


DO FS 


A9 


AO 


91 


2ft 


FA 


EO 


95C3- 


85 29 


BD 


DO 


95 


as 


?A 60 


9470- 


88 


10 FB C6 


FE 


DO 


CS 60 


9520- 


IS DO 


C4 


C6 


FE 


DO 


BE 


60 


95D0- 


00 SO 


00 


80 


00 


80 


00 SO 


9478- 


A9 


28 85 FE 


A2 


OO 


AO 00 


9528- 


A9 18 


85 


Ol 


A9 


28 


85 


00 


9SD8- 


28 A8 


28 


A8 


28 


A8 


28 A8 


9480- 


BD 


DO 95 85 


28 


BD 


E8 9b 


9530- 


20 41 


95 


A9 


AO 


8D 


34 


06 


95fcO- 


50 DO 


50 


DO 


50 


DO 


50 DO 


9488- 


8b 


29 C8 Bl 


28 


68 


91 28 


9538- 


C6 00 


DO 


F4 


C6 


01 


DO 


EC 


95ES- 


04 04 


05 


05 


Ob 


06 


07 07 


9490- 


C8 


CO 27 DO 


F5 


A9 


AO 91 


9540- 


60 A9 


OO 


85 


02 


85 


04 


A9 


95FO- 


04 04 


05 


05 


06 


06 


07 07 


9498 


28 


E8 EO 18 


DO 


EO 


C6 KE 


9548- 


17 85 


05 


A9 


27 


85 


03 


20 


95F8- 


04 04 


05 


05 


06 


06 


07 07 



PROGRAM E5SAI_H0ME; 



VAR 
CAR 



CHAR; 



PROCEDURE HOME<CARACTERE:CHAR) ; EXTERNAL; 
PROCEDURE EFFACE.BAS; EXTERNAL: 
PROCEDURE EFFACE GAUCHE ; EXTERNAL: 
PROCEDURE EFFACE_CENTRE; EXTERNAL; 
PROCEDURE EFFACE_GD_DG; EXTERNAL : 
PROCEDURE EFF ACE _SPI RALE ; EXTERNAL; 

BEGIN 



WRITE < ' Dnnnp? UTl raractere ')j READ C CAR ) : 
HOME ( CAR) ; 
EFFACE BAS ; 
HGME(CAR) ; 
EFFACE_GAUCHE; 
HOME (CAR) ; 
EFf A GE_CEM TRE ; 
HOME (CAR) ; 
EFKACE_GD_DG; 
HOME (CAR) ; 
EFFACE 3P1RALE; 
END. 



macro dod i. push 



.MACRO POP 
PLA 
5TA XI 
PLA 

STA XI *X 
. ENDM 

.MACRO PUSH 

LDA 

PHA 

LDA XI 
PHA 
. ENDM 



HOME. SWEET HOME.. 
■ » « 

•**«**«*•*«** IM..M.II............ 

.PROC HOWE.l 

. RFF ADRL. ADRH 

•»-•»• 



RETURN 



.SOU 00 



Pom's n" 13 



ADRLIGNE 

LIGNE 

COMPTEUR 



. EQU 28 
.EQU 06 
.EQU OFE 



EFFACEMENT RflPIDE • 



POP RETURN 

PLA : recuperation du pBrsierrp 

EOR #so 



SUITE 



Lnv #11^. 

STA 4O0.Y 

STA SOO.Y • 

STA 600. Y ; 

STA 700.Y * 

STA 480. Y ; 

STA 560. Y i 

STA 680., Y - 

STA 780. Y : 
DEY 

BPL SUITE 



PUSH RETURN 
RTS 



jlinaa O 

2 
4 

1 

3 



8 lb 

10 18 
12 20 
14 22 

9 17 

11 19 
5 13 21 
7 IS 23 



- EFFACEMENT VERS LE BA5 - 
»••••••••>>>*•••••...„••«• 

.PKOC EFFACE BAS 
.REF ADRL , ADRH 



VAR • 



RETURN 
ADRLIGNE 
LIGNE 
COMPTEUR 



ENCORE 



NEXT 



. EOU 00 
.EOU 28 
.EQU 06 
.EQU OFE 

POP RETURN 

LDA #24. 
STA OFE 

LDX #23. :dernlprfl lignp 

[.DA ADRI..V rchargepent partis baaao 

STA ADRLIGNE : on otocke dans tdrligne 

LDA ADRH.X ;chargenent par-tie haute 

STA ADRLIGNE*! 

LDA ADRLIGNE 

STA L1CNE 

LDA ADRLIGNE- 1 

STA LICNE-1 

DEX 

LDA ADRL . X 
STA ADRLIGNE 
LDA ADRH.X 
STA ADrtLIGNE* 1 



DEPLACE 



LDY 
LDA 
OTA 
DEY 
BPL 



#33. ;on oart d« la droite 

flADRLIGNE , Y ;le caract. vera baa 

<LIGNE> ,Y 

DEPLACE 



EFFSOM 
EFFACE 



CPX noo :a-t-on attemc le Das'; 
BEO EFFSOM 

BPL NEXT ; = jmp next 

LDY #39. ; coin droit 

LDA #OA0 

STA ©ADRLIGNE. Y 

DEY 

BPL EFFACE 

■ 

'DEC COMPTEUR 
BNE ENCORE 



PUSH RETURN 



RTS 



EFFACEMENT VERS LA GAUCHE - 



VAR - 



RETURN 
ADRLIGNE 
LIGNE 
COMPTEUR 



ENCORE2 
NXTLIGN 



-PROC EFFACE. GAUCHE 
. RFF ADRL, ADRH 



. EOU 00 
■ EOU 28 
.EOU 06 
• EOU OFE 



POP RETURN 

LDA #40. ;40 CaracLmHii pdi Ixuiie 
STA COMPTEUR 



CONT 



LDX 
LDY 
LDA 
STA 
LDA 
STA 
INY 
LDA 
DfcY 
STA 
INY 
CPY 
3 N E 



#00 ; li^iie »L>*ra*fT 

#00 ;culunnt* d« gauche 

ADRL . X 

ADRLIGNE 

ADRH , X 

ADRLIGNE* 1 

tfAUKLlGNfc, Y 

©ADRLIGNE. Y 

#39. ;derniere colonne? 
CONT 



DERNIERE COLONNE * 



LDA #0AO 

STA < 28 ) . Y 
INX 

CPX #24. :derniere Iiqne? 

BNE NXTLIGN 

DEC COMPTEUR 
BNE ENC0RE2 

PUSH RETURN 

RTS 



;• EFFACEMENT PAR LE CENTRE • 

............. 

; 

.PROC EFFACE CENTRE 



• mm mm* 

VAR - 



RETURN 
ADRLIGNE 
LIGNE 
COMPTEUR 



BOUCLE 
NEXTLIGN 



DEPLACD 



GAUCH 



DEPG 



. REF ADRL. ADRH 



. EOU 00 
. EOU 2ti 
.EOU 06 
.EOU OFE 

POP RETURN 

LDY #20. jinitiai. compt^ur de boucle 
STY COMPTEUR 

LDX #00 : mi tial isat ion ligne 

LDY #16. initialisation colonne 
LDA ADRL , X 
STA ADRLIGNE 
LDA ADRH ,X 
STA ADRLIGNE*! 

LDA ©ADRLIGNE, Y .-recup. d'un caractere 
INY 

STA 0ADRLIGNE.Y :le de D lace d'un rano 
DEY 

RFQ GAUCH ;on snrt «i riprmprp m) 
DFY 

BPL DEPLACD : . EOUJMP 

LDA *OAO 

STA ©ADRLIGNE, Y 

LDY #21. :mjtialiBation col 

LDA 13 ADRLIGNE . Y ; on place un caractoro 
DEY 

STA SADRLIGNE.Y 
INY 

CPY #09. ;est on a i a derniere col 

BEO DROIT oui on suit 



■ ' - 
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DROIT 



INY 

BPL DEPG :.EOUJMP 

LDA *OAO 

ST A ©ADRLIGNE, Y 

INX 

CPX #24. ;derniere Hone? 
BNE NEXTLI&N 

DEC COMPTEUft 
BNE BOUCLE 

PUSH RETURN 

RTS 



EFFACEMENT GA UCHE -DRO ITE & DROITS -GAUCHE - 



; VAR * 



RETURN 
ADRLIGNE 
LI&NE 
CUMPThUK 



BOUCLE2 
GAUCHE 



DEPLACG 



.PROC EFFACE _GD_ DG 
.REE ADRL, ADRH 



.EOU 00 
•EOU 29 
.fcUU Ob 
.EUU OFE 
POP RETURN 

LDX #40. 
STX COMPTEUft 
LDX *00 
LDA ADRL, X 
STA ADRLIGNE 
LDA ADRH,X 
STA ADRLIGNE * 1 
LDY #01 

LDA ©ADRLIGNE , Y 
DEY 

STA BADRLIGMEvY 
INY 

CPY #39. 
BEQ BLANCD 
INY 

BPL DEPLACG 



BLANCD 



; 

DEPLACDT 



,-a c« nionant y= 39 



5LANCL 



I -DA #0AO 

STA 0ADRLIGWE , Y 

INX 

LDA ADRL , X 

STA ADRLIGNE 

LDA ADRH , X 

STA ADRLIGNE-l 

DEY 

LDA ©ADRLIGNE, Y 
INY 

STA ©ADRLIGNE , Y 
DEY 

BEO BLANCL 

BNE DEPLACDT 



LDA ffOAO 

STA ©ADRLIGNE ,Y; a ce moment y-p 
INX 

CPX #24. ; Lerminev 
BNb GAUCHE 
DEC COMPTEUR 
BNE B0UCLE2 

PUSH RETURN 

RTS 



"HOME" EN SPIRALS 
«*•>>•■-•>••••■»»>>»•••»**» • *•■*-• 

.PROC EFFACE SPLRALE 
. DEF ADRL , ADRH 



RETURN 

HCNT 

VCNT 

XI. 

XR 



.EOU 00 

. EOU OA 

.FQII HCNT-1 

.EOLI VCNT+1 

- EOU XL-1 



YT 
YB 

ADRLIGNE 



.POM XR.l 
. EOU YT*1 
- EOU 5fi 



DEBUT 

DEB1 

DEB2 



ROTATION 



R0T1 
R0T2 



POP RETURN 

LDA #21. ; pour 24 lignes 
STA VCNT 

LDA #40. ; pour 40 colonnea 
OTA HCNT 
JOR ROTATION 
LDA *#OAO 

STA 628*12. ; au mlieu de i ecran 

DEC HCNT 

BNE DEB2 

DEC VCNT 

BNE DEBi 

PUSH Kfc'IWN 

RTS : c'est fini : 



LDA WOO 

STA XL ; bord gauche 
STA YT ; som-net 
LDA #23. 
STA YB ; bas 
LDA S39. 

STA XR ; bord droit 

JSR BAS ; on part au cote qauche 

BEQ R0T2 

JSR BAS 

DEC YB 

JSR GAUCHE i 

INC XL 

JSR HA'JT 

\WC YT 

JSR DROIT l 

DEC Xk 

LDA YT 

CMP YB 

BCC ROTi 

RTS 



;-ON SE DEPLACE VERS LA GAUCHE ET» 
VERS LE BAS 



: 

BAS 
BAS1 



LDY 


XL 


LDX 


Y& 


DEX 




JSR 


CALCULE 


LDA 


©ADRLIGNE , Y 


PHA 




INX 




J3h 


CALCULE 


PLA 




STA 


&ADRLIGNE.Y 


DEX 




CPX 


YT 


BNE 


BA31 


RTS 





;-0N SE DEPLACE VERS LA DRO ITE ET" 

VERS LE HAUT 



: 

HAUT 
HAUT1 



LDY XK 
LDX YT 
INX 

JSP CALCULE 
LDA ©ADRLIGNE, Y 
PHA 
DEX 

JSR CALCULE 
PLA 

STA ©ADRLIGNE. Y 
INX 

CPX YB 
RNF HAIIT1 
RTS 



;»0N SE DEPLACE VERS LE SOHMET ET- 
VERS LA GAUCHE 



LDX YT 

JSR CALCULE 
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TtAUCHF? 



l.DY XI. 
INY 

LI>A SaDRLIGNE. 
DFV 

STA SADRL IGNE . 
INY 

CPY XR 

BNE GAUCHE2 

RTS 



ON SE DEPLACE VERS LE DAS ET 
; - VERS LA DROITE 



DF02T1 



DR0IT2 



LDX Yb 
J3R CALCULE 
LDY XR 
DEY 

LDA ©ADRLIGNE.Y 
INY 

S7A ^AORLl^Nh.r 
UfcY 

CPY XL 
BNE DROITS* 
RTS 



CaLCUL DE L ' ADRESSE 



CALCULE LDA ADRH , X 

STA ADRLIGNE-l 
LDA ADRL , X 
STA ADRLIGNE 
RTS 

; PART2E BASSE DES A DRESSES PAGE TEXT • 

ADRL . BYTE OO . 80 . 00 , OO , 00 . 00 , 00 , 60 ;liyjies 0-7 

.BYTE 28, 0A8, 28. OAS. 28, 0A8, 26, OA-8 llignea 8-15 
. faYTE 5O,0D0,50,0D0,50.0D0,50,0DO ; 1 ignea lb-23 

i 

; PARTIE HAUTE DBS AUKtSShS PAGE TEXT • 



AUKH 04,04. 05,05, Ob. Ob, 07,07 ; I ignes 0-7 

.BYTfc 04, 04,05, 05, Qb, 06, 07, 07 ;ligne& 8-15 
. BYTE 04,04, 05, 05, Ob. Ob, 07, 07 jlignea lb-23 

.END 



Bugbytcr a l'essai 

Alexandre Avrane 



L' Apple ne connait qu'un seul Ian- 
gage, celui dn processeur 6502, et 
pourtont peu d'utilisateurs 1* exploi- 
ters; 3a plupan se considerent defini- 
tivement brouilies, apres la lecture 
des manuels Apple, avec la program- 
mation en assembleur. 

Bugbyter est un outil de programma- 
tion facilitee en assembleur : il assiste 
Tutilisateur dans la nrise uu point des 
programmes en 6502, en lui oftrant 
des possibilites originales par rapport 
a ce qu'offrent le moniteui de r Ap- 
ple ou les divers assembleurs dispo- 
nibles. 

Mcttrc au point un programme, c'est 
avant tout pouvoir l'executer instruc- 
tion par instruction (STFP/TRACE) 
pour deceler Torigine d'une erreur. II 
est certes possible de reprendre les 
routines de STEP/TRACE disponihtes 
sur le moniteur d'origine de 1' Apple II 
(avant le II Plus) ou avec le Moniteur 
Etendu (Pom's 8) ; mais les informa- 
tions affichees restent rudimentaires 
(en particulier la valeur des bits du 
registre ■ " 



Rugbyter s'est donne les moyens 
d'un "debugging 1 ' agreable ; en effet 
l'ecran affiche simultanement : 

• la douzaine destructions prece- 
dant et suivant la position actuelle; 

• les valeurs en hexadecimal ou en 
binaire des registres (A/X/Y/P/S) 
du 6502 et leur evolution; 

• la position courante du compteur 
de programme (PC); 

• la situation actuelle de la pile du 
6502, ainsi que le pointeur de 
pile; 

• le nombre de cycles-machine exe- 
cutes; 



• les valeurs d'une demi-douzaine 
d adresses strategiques que l'utili- 
sateur aura precisees, 

• la situation des points d'arrets. 
egalement specifies par l'utilisa 
teur, et le nombre de fois qu'ils 
ont ete atteints. 

II est egalement possible d' observer 
revolution des zones d'ecran texte 
ou haute resolution, page 1 ou 2. et 
de faire varier la Vitesse d'execution, 
eventuellemcnt a Faide d'un paddle. 

Bugbyter fonctionne comme un in- 
terpreter des instructions du 6502, 
ce qui ralentit evidemment le derou- 
lement du programme; il est nean- 
moins possible de preciser une zone 
memoire qui devra etre executee a 
pleine vitesse, par exemple la routine 
RWTS du DOS. Entitlement relo- 
geable, Bugbyter peut egalement etre 
implante sur une carte langage. 

Les piublernes de contention (colli- 
sion) sont reduits au minimum et 
Bugbyter ne reserve cn fait qu'une 
tfentaine d* octets sur la pile du 6502; 
toutes les adresses en page zero sont 
sauvegardees et restaurccs; Taffi 
chage video peut etre supprime; il est 
egalement possible de specifier que 
tous les caracteres du clavier saui un 
seront lecus par le programme exe- 
cutant, le dernier servant a arreter le 
TRACE. 

Si les caracteristiques de Bugbyter 
s'arretaient la, ce serait deja un ex- 
cellent produit Mais il offre en 
prime : 

• un mini-assembleur resident, plus 
pratique que celui d'Apple; 

• un traducteur decimal/hexadeci- 
mal: 



• la possibilite de visualiser la me- 
moire par dump hexadecimal et 
ASCII; 

• la modification facile des quatre 
fenetres d'affichage a l'ecran; 

• Installation de points d'arrfits 
(breakpoints) virtuels (un BRK 
n'est pas insere); 

• l'execution sur Apple II, I1+. //e. el 
/// en mode emulation: 

• non protection et fonctionnement 
sous DOS 3.2 ou 3.3, ce qui per- 
met de l'utiliser conjointement 
avec un assembleur. Big Mac par 
exemple. sans devoir recharyei 
I'un des deux programmes. Un 
soul regret : il est impossible d'ob- 
tenlr une sortie sur imprimante des 
informations produites 

En rapport performance/prix, un seul 
concurrent serieux ; le Moniteur 
Etendu du Poms 8 qui offre de 
nombreuses possibilites semblables. 
ainsi que certaines facilites en plus ou 
en moins par rapport a Bugbyter. Le 
prix du numero et de la disquette ; 
95 F. 

En guise de conclusion. Bugbytcr est. 
a un cout raisonable (environ 450 
FF, mais difficile a trouver), une ne- 
ccssite a la fois pour le novice qui 
veut apprendre l'assembleur sans 
douleur. et pour I'utilisateur plus ex- 
perimente qui gagnera un temps pre- 
cleux de mlse au point et osera abor- 
der certains programmes tres com- 
plexes. La programmation en asscm 
bleur n'est plus un art avec ses mo- 
ments d'intuition et de desespoir, 
mais devient une technique. Est-ce 
dommage ? 
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Un jeu d'adresse en Pascal : 
ORDRALPHABETIX 



J'ai voulu voir s'il etaii vidiment pos- 
sible d'uoliser 1' assembleur UCSD. 
En fait, q.a Pest et on decouvre meme 
a F usage que le passage de parame- 
ires entre le Pascal el son assembleur 
est nettement plus simple qifen 
Basic (pour la mise au point, c'est 
autre chose !). En particulier. on peut 
dans le programme Pascal redefinir 
les touches de direction utilisees par 
la routine assembleur. grace a la di- 
rective PUBLIC qui montre toutes 
lcs qualites de 1'assernbleur (ou plu- 
t6t de 1'fiditeur de hens UCSD). 

Toutes les explications necessaires 
sont donnees par le programme Pas- 




Dominique Bernard' 



cal. Par contre. je n'ai pas eu le 
temps (ou le courage) He dcvumen- 
ter ia procedure externe. De toute 
facon. il serait sans doute plus astu- 
cieux de faire appel mix routines de 
Turtlegraphics (si on savait ou dies 
se trouvent) ou d'ecrire sa propre 
routine de HPl.OT. pli itot que de 
faire appel a la ROM Applesoft 
cornme je le fais. Enfin. comme le di- 
sait Galilee, ga tourne .. 

0RD1 est le programme Pascal 
d'ORDRALPHABETlX et ORD2 le 
programme assembleur. 



• ect<:~ par c«oh:k:uue s=snab^;. sua <jn= 

lOfee Jt JcAN-LC-'JI? HOltf ET HEl.SKE kjgHj 

-sef Typ?LEca/ir>Hics. applestitff; 

~Y?£ PD I ST 'RECORD V . X : INTEGER EtfOs 
CHOIXDECAtSET OF CKAR : 

TABLE IAKkAY iU. , ^bj OF POINT: 
PT , DEPART : POINT: 

• "7RES. VITESSE. SCG&ENAX, BUT. CKA3H . 
DELTAX.DELTAY. TEttPDRISATlONT 7NTEGER : 
HAUT,BAS,GAUCHE.DRC»l7E.A:CHAf<; 

PRCCtUuRt CUUKS: EXTERNAL: 

F.'KCTION PCAP<S:CHGIXDCCA> :CIIAfi. 
VAR AlCHAJJ: 
BEGIN 

REPEAT READ< A ) UNTIL A IN S: 
PCAR:=A 
END; 

-UNCTION OUJ:BOOLEAN: 
BEGIN 

0UI:=PCAR<I'O'.'N*I> ='0' 
END: 

["UNCTION ENT3EF; INTEGER; 
VAR A : CHAR : 

I : IKTPf.PS; 
BEGIN 

A:=PCARC CO* . . '9'] ) : 

l;=ORDiA)-ORDl*0' ): 

A: =PCARl t 'U* . . . ' 'J); 

IT AO* • THEN I:-»0-l'ORDcAJ-ORDi*0-|: 
ENTIER:=I 
END: 

PROCEDURE PAPAKETPE5; 
VAR 1. J : INTEGER: 
BEGIN 
REPEAT 
PAGPfflllTPIITl: 
WRITELNI ' 
WRJITELM: WR3TELN: 
WRITELNCACTUELLEHENT: ' .LETTRES, ' LETTRE5 , VITESSE '.VITESSE); 
WRIIELN; UKMfcLN; 
WRITE( ' LETTRE3 (3. .26) -->'»: 
REPEAT 1 : -ENTIEB UNTIL I IN '1..2C3; 
WRITELM; 

WRITE < * VITESSE U..20) -->M : 
REPEAT 3 I =ENTIER UNTIL J IN CI . .20) : 
WRITELH; URITELN; 

WRITELM ( I . ' LETTRE3, VITESSE *.J>: 
UPJTELM: 
WRITE<'0X ? ') 
UNTIL CI! I; 

LETTRES: « I : VITESSE:=J 
END; 

PROCEDURE TOUCHES; 
VAR Al,A2,A3.Ai:CHAB; 
BEGIN 



PARAttETRES* > r 



REPEAT 
PAGE (OUTPUT), 
WRITELNI • 
URITELN: URITELN ; 
WRITE t 'HAUT --> '); READ)) Al • r 



TOUCHES DIRECTIONNELLCS* > : 



URITELN; 
WRITE f * BAS --> READIA2); 
URITELN; 

UPITE< 'GAUCHE » *); READ(A3>; 
URITELN ; 

WRITE I ' DROITE --> '): READ( A4 i | 
URITELN; WRITELfi : 
WRITE I * OK ? '> 
UNTIL OUI; 

HAUT! • Al : BAD.*-A2; GAUCHE; -A3; DftOlTE: = A-* 
End ; 

PROCEDURE CHOrsiT; 
VAR PTtPOINT; 

1:1 NTEGER ; 
PROCEDURE HASARD; 
BEGIN 
WITH PT DO BEGIN 
X:=4.(RANDDN HOD 2671: 
Y:=10- (RANDOM HOD 178» 
END 
END ; 

FUNCTION POSSIBLE: BOO LEAN; 
WAR J r INTEGER ; 

h e -. ; k 

WHILE J<I DO BEGIN 

IF (ABS<TA8LE[J1 .X-PT.XX5.5 | 

AND lABS(TABLEiJ) .Y-KI .r J<t>Oi 

TIICN QEGIN POOGIBLE : - FALSE ; EXIT « POSSIBLE) END : 

END: 
POSSIBLE: =TRUE 
END: 

FOR I; -l TO LETTRES DO 
BEGIN 

REPEAT HASARD NNTfl POStfTftl-l?; 
TABLEill :=PT 
END: 

REPEAT HASARD UNTIL POSSIBLE: 
D"EPART : =P7 
END r 

PROCEDURE TRACE' I: INTEGER i • 
BEGIN 

.10VETO<TABLEriJ.)t.l9i)-TABLECI? .Y»: 
WCHAR(CHRl6-4-;>l; 
END: 

PROCEDURE PESSINE: 
VAR I : INTEGER : 
BEGIN 
Jfc.IIUKtLfc: 

VIEWPORT «4,2?3. -i, i&7 i : 
F ILLSCftZEN * WHITE > . 
V TEUPOPT'O. 27?, Q, 191 1 ; 
r I LLSCREEN < REVERSE > : 
FOR ::=i 70 LETTRES DO TRACE ' T > : 
ENC>; 
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PROCEDURE S£-J: 
VAR SCORE: INTEGER: 

FIN! : BOOLEAN: 
A :CHAS ; 
BEGIN 

SCOPE : =Oi 

BUT : = 1 : 
CRASH: =0: 
deltax: =0 : 

DELTAY: ^O.- 
PT-sDEPART: 

te«por:satio«: -241 ii--viTCr.se ; 

BPPEAT 

COUPS: 

IF CRASH = 
THEN BEGIN 

UMITE<CHRt7W : 
SCORE: =SCORE-viTES5E: 
73»ACE(BUT.i 

bUt:-but-i: 

f i n 1 : - bu7>le77res 

END 
ELSE BEGIN 

riNI:-TRUC; 

UNTIL FIN3: 

IF SCORE>SCOREHAX THEN 5COREMAX : -SCORE : 
READ < A 1 : 

PAbHUUI^UU; 
TEXTWODE; 

URITELNCVOTRE SCOftE EST DE -.SCORE.' POINTS*!; 
WRITELNCLE SCORE MAXIMUM ATTFTNT AIMOURD* * HHT ' i : 
WPITELNCEST DE '.SCOREBAX.* POINTS'): 
WRITELN : 
READ* A ) 
END; 

pwncPniiRF tnit: 
BEGIN 
RANDOMIZE: 

LETTRES: : 26; 

DCOREMAX:-0; 
CHOISETi 
HAUT: s'T' ; 
BAS: = ' M ' ; 
GAUCHE:=-J* ; 
yRUIThl^'K" ; 
CHABTYPE(6» 
END ; 



PROCEDURE TKS7RUCTIGMS: 
VAR A : CHAR: 
BEGIN 
PAGEIOUTPUT) ; 
WRITELNl ' 
WRITELN; URITCLM; 

'VCVS ZE'JEZ PAVER E-.-.KS L**OR»*£ -E=' 
i.FTTRFS DF J. 



INSTRUCTION? ' 



-a'RITEL.'." 
WRTTFLNl ' 
UHI7ELNI ' 



OF-DRALPHaBcTTX ' •: 



ALPHABET. FN DTRTuFANT I.F*>- 
TRAIT GRACE AUX TOUCHES DE DIRECTION H(U1*>! 
WRITELN< 'SORT, PAR DEFAUT, <I> <J> <X> E? <M>.*>; 
WRI7ELN: URITELN; 

WRITELNl 'ATTEN7ION. UNE FOIS QV IL A DESARRE. LE'H 
WRITELNl 'TRAIT HC 5''ARRCTT QU ' * A LA VICTOJRC*': 
WRITELN* * "I KALE OU A LA COLL IS 3 OH AVEC LE SORD DUfij 

WRITELNCLE RECTANGLE 6X7 CONTENANT UNE LETTftE'i: 

URI7ELKI 'ERRONEE. ' ) : 

WRITELN: 

W RITcLN; SE"AD<A> 
end; 

procedure menu: 

BEGIN 
PAGEIOUTPUT) ; 
URITELMi ' 

WRITEL-N : WRITELN; 
WRITELN) * 1> NSTRUC710HS- > ; 
WRITELN * ' Ti OUCHES DE DIRECTION ' l • 
WRITELN< 'P>ARAME7RES DU JEU' > ; 
WRITELNl 'DUSPOSITIOK DES LE77RES* > ; 
WRI7ELN('J>EU*>: 
WRITELN < ' F> IN ' ) : 
WRITELN; WRI7ELN; 
WRITE < * VOTRE CKOIX --> *< 
END : 

BEGIN (• 0RDRALPHABE7IX 
INIT: 
REPEA7 
MENU ; 

A :aPCAR" I ' if. . "7- . *P' 
CASE A. OF 

'i - : iNS7RUC7;oss: 

•T' ITOUCHES: 
*H' :i*ANAHfc7KfcS; 
" D * .CH013TT; 
■ J * : JEJ 
FNH 

UNTIL A=*F* : 
PAGE l OUTPUT > : 
iOTGXYt:4,:2>: 

ypiTELNi'AU REVOIP '■ 
CKD. 
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Programme ORD2 

-PROC COURS 

-PUBLIC TABLE . LE7TRE3, BUT 
-PUBLIC TEHPOR1SATION, CRASH 
.PUBLIC DEl.TAX.nFI TAV.PT 
. PUBLIC HAUT. 0AS. GAUCHE. DRQITF 



STOCK 
HJRES 
CULUK 
PAGE 

KEYBOARD 

XEYSTROB 

PI\flT 

RAM 

ROM 

INTRO 
SO 



ALLUME 



.EQU 
.EQU OEO 
.tuU OE4 
. EQU OE6 
.COD OCOOO 
-EOU OCOIO 
. EON OF4S? 
.EQU OC086 
• EQU OCOSA 

LDY #OF 
LDA HIRES, Y 
ST A B-LUC i Y 
DEY 

BPL 30 
LDA W7F 
STA COLOR 
I HA 070 




MONTE 



I.DA KFVROARD 

BPL AVANCE 

STA KEYSTRQB 

LDX #0 

AND *7F 

CHP HAUT 

BEu MONTE 

CHP BAS 

DCO DESCEND 

CMP GAUCHE 

RFO Af.AIICHF 

CMP DROITE 

BEO ADROITE 

JMP AVANCE 

STX DELTAX 

STX UELfAX* i 

LDA *OFF 

STA DELTAY 

JMP AVANCE 



DESCEND 



AbAuCHL 



ADROITE 



AVANCE 



CHE OCX 



CKECKG 



CHECKY 



PILE 



DEPILE 



STX DELTAX 
STX DELTAX- 1 
LDA mi 
STA DELTAY 
JKP AVANCE 

STX DELTAY 
LDA #OFF 

STA DELTAX • 1 
JMP AVANCE 

STX DELTAY 
STX DELTAX* 1 
LDA »1 
STA DELTAX 

CLC 
LDA PT 
ADC DELTAX 
STA PT 
1 riA PT*1 
ADC DELTAX* 1 
STA PT*1 
CLC 

LDA PT*2 
ADC DELTAY 
STA kT*3 
LDA PT-1 
SEQ CHECK'G 
LDA PT 
CHP P.2Q. 
BC5 PERDU 
JMP CIICCKY 
LDA PT 
C*p jm 
BCC PERDU 

LDA PT-2 
CMP #188. 
BCS PERDU 
CNR #4 
BCC PERDU 

LDA BUT 
ASL A 
ASL A 
TAX 

JSR CARRE 

BEO CORRECT 

CLC 

TXA 

ADC »1 

TAX 

LSP A 



LSR A 

CHP LETTRES 

BEU 50 

BCC &0 

JMP ALLUME 

£0 JSR CARRE 

BEO PEROII 

JMP DEPILE 

CORRECT LDA #0 

STA CRASH 
JMP EXIT 

PERDU LDA n\ 

STA CRASH 
JMP EXIT 

CARRF SFC 

LDA PT 

SSC TABLE. X 

STA STOCK 

I.DA PT*1 

SBC iABLL-i.X 

BNE NON 

LDA STOCK 

CMP #6 

acs NON 

LDA TABLE- 2. X 

SBC PT-2 

CHP #7 

BCS NON 

UU1 LDA MO 

RTS 

NON LDA #1 

RTS 

DFI.AT EDV TFMPnRTSATTON 

S) DEY 

BEQ FIN 

LDX *10. 

52 DEX 
BNE $2 
JMP sl 

FIN RTS 

EXIT STA RAM 

LDY *0F 

53 LDA BLCC.Y 
STA HIRES. Y 
DEY 

BPL S3 
RTS 

dLOC .BLOCK lO 

. END 
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ProDOS a l'cssai 

Alexandre Avmne 



Avec r arrives du Macintosh. Apple a 
annonce la creation de la famille 
"Apple 32". regroupant les mareriels 
toumant sur processcur 32 bits. 
Elrdnyement, peu de mots sur la 
gamme Apple 8' ont ete pronon- 
ces. comme si les Apple II (Plus, f/e 
et //c) et /// devaient eternellement 
continuer a s'ignorer et rester quasi- 
ment incompatible^ Fun avee 1 T autre. 
Heureuscjiienl, void ProDOS. 

Rendu possible par Fabaissement du 
cout de la memoire. ProDOS est le 
nouvcau systeme d'exploitation des- 
tine a remplacer. a terme, le DOS 
3.3 et euentuellernent le S .O.S., et 
done a offrir enfin une certaine 
compatibility entre la famille Apple II 
et 1" Apple Hi 

L evaluation qui va suivre est divisee 
en trois grandes parties voluiilaire- 
rnent succintes : 

• une description gSn&ale des ea- 
racteristiques du ProDOS: 

• F etude de ses commandes et la 
comparaison a celles du DOS 3.3; 

• un premier regard sur son fonc- 
tionnement interne. 

Caracteristiques 
du ProDOS 

ProDOS a un double objectif : ren- 
dre possible rutilisation d'un disque 
dur sur Apple II de maniere aussi 
simple que celle d'une disquette, et 
permettre a I' Apple 111 d'utiliser les 
logiciels de F Apple II sans devoir pas- 
ser en mode emulation. En bref. les 
fichiers de Tun peuvent etre lus par 
Fautre. 

ProDOS ne necessite aucune modifi- 
cation hardware (pas d'ajout de 
PROM comme lors du passage DOS 

3.2 vers DOS 3.3), mais requiert un 
minimum de 64K de RAM (le DOS 

3.3 fient en 16K). La quasi-totalite 
de la carte langage lui est reservee; 
nous avons par consequent la dou- 
leur de vous fair*? part du deeds, a 
1'age de 8 ans. du Basic Integer qui 
n'est pas supporte par ProDOS... 

Des disques durs dune capacite 
maximum de 32 mega-octets (Mo) 
peuvent etre utilises (le ProFile offre 
5 Mo): un fichier individuel peut 
enfin avoir une taille de 16 Mo, soit 
T equivalent de 1 14 disquettes ! 

C'est enorme ! Pour pouvoir s'y re- 
trouver rapidement ProDOS utilise 
le principc des catalogues hierarchi- 
ses : un catalogue general fournit une 
liste de sous-catalogues qui, eu*- 



memes, peuvent contenir des sous- 
sous-catalogues, et ainsi de suite. Re- 
larivement simple a utilizer, cette mp- 
thode permet de structurer le 
contenu d'un disque, mais pourra 
derouter Futilisateur habitue a des 
structures plus simples. Sans cette 
structure hifirarchique, II faudrait. si 
chaque fichier avait une taille de 10 
K. 21 pages d'ecran pour lire le cata- 
logue d'un ProFile ! 

ProDOS qere automatiquement tous 
les sous-catalogues et, en particulier. 
les dates de creation et de derniere 
modification d'un fichier. sa longueur 
en octets et son adresse de charge- 
ment. Pour 1' instant, il reconnait seu- 
lement la carte d'horloqe Thunder- 
clock, mais les autres fabricants vont 
certainement proposer dans peu de 
temps des patches pour leurs mate- 
riels. 

Un des principaux points forts de 
ProDOS te^ide dans sa yesliun beau- 
coup plus rapide des tichiers, par 
rapport non seulement a celle du 
DOS 3-3, mais igalemerrt a Fegard 
des versions "dopees" telles que 
ZDOS. ProntoDOS, Diversi-DOS, 
etc. J'ai obLenu les lenips suivanls 
(en secondes) avec un fichier binaire 
de 32 K: 

DOS 3.3 ZDOS 2.0 ProDOS 1.0 

BSAVt 46 39 18 

BLOAD 33 8 5 

Enfin. ProDOS est livre avec plu- 
sieurs uiilitaires equivalents a FID et 
COPYA, ainsi qu'avec un pro- 
gramme de conversion des Gchiers 
sequentiels DOS 3.3 : les fichiers a 
acces direct doivent d'abord etre 
transposes en fichiers sequentiels. 
convertis en ProDOS. puis retranspo- 
ses en fichiers a acces direct ... Call 
Apple a publie en avril 1984 un pro- 
gramme effectuant cette double 
transposition. 

En conclusion partielle. ProDOS est 
le quatrierne grand systeme d'exploi- 
tation pour Apple II disponibie en 
France. Hormis le DOS 3.3. il va de 

voir compter avec le Pascal, le CP/M, 
et le MEM/DOS a qui il pourrait {aire 
du tort. 

Les commandes 
du ProDOS 

Pour des raisons de place, cette 
etude se borne a indiquer les diffe- 
rences entre les commandes du 
ProDOS et celles du DOS 3.3, et ne- 
cessite done une connaissance prati- 
que de ce dernier. Les commandes 



du ProDOS sont, en effet. volontaire- 
ment similaires a celles du DOS 3.3; 
il n'y a done pas necessite d'appren- 
dre une nouvelle gamme de 
commandes, et Futilisateur rode au 
DOS 3.3 s'accoutumera tres rapide- 
ment a ce nouveau systeme d'exploi- 
tation. 

Sept types de tichiers existent sous 
ProDOS ; les fichiers de programmes 
Basic, lextes, et binaires nous sonl 
deja familiers. S'y ajoutent les fichiers 
systemes (ProDOS lui-meme consti- 
tue un fichier, contrairement au DOS 
3.3 qui se trouve toujours sur les 3 
premieres pistes d'une disquette), les 
fichiers binaires relogeables (I 1 equiva- 
lent des fichiers R du DOS ToolKit). 
les fichiers de variables (qui contien- 
nent les variables d'un programme 
Applesoft), et enfin les sous-catalo- 
gues (considered comme des fichiers 
a part entiere et pouvant done etre 
lus ou ecrits). En outre. Futilisateur a 
la possibility de definir 8 types sup- 
plementaires de fichiers. 

Hierarchie des catalogues 

La hierarchisation des catalogues est 
facilitee par le PREFIX : supposons 
que sur un disque, baptise DISQUE1 
lors de son initialisation, existent des 
fichiers de gestinn, de jeux. Has utili- 
taires. etc. On peut creer un sous-ca- 
talogue nomme GESTIOIN contenant 
tons les fichiers de gestion, puis un 
sous-sous-catalogue baptise IMPOT 
qui contient plusieurs fichiers. met- 
tons un par annee. Pour appeler un 
de ces fichiers. il faut une commande 
telle que, par exemple : 

OPEN DISQUE 1 GESTION/IMPOT ANNEE1 

Remarquez que Ton ne precise ni le 
slot ni le drive, ProDOS identifiant 
(comme Pascal) le nom logique du 
volume (DISQUE1) avec son adresse 
physique (slot, drive). Les "/" (pro- 
nonce? slash) serve nt de delimitetirs 
entre les identifiants qui doivent 
comporter au plus 15 caracteres 
(moins que sur DOS 3,3, mais plus 
que sur Pascal ou CP/M, et franche- 
ment mieux que les 8 caracteres re- 
connus par FIRM PC ) pris parmi 
les Lettres, les chiffres ou le point. La 
longueur totale de la commande. 
.hois nnstmrtion OPEN, ne peut ex- 
ceder 64 caracteres. Pour alleger la 
syntaxe, il est possible de pr£ciser un 
prefixe par defaut avec 1' instruction : 

PREFIX DISQUEV'GESTIOMMPOTV 

et Ea commande ci-dessus devient 
plus simplement : 
OPEN ANNEE1 
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Les commandes dlsparues 

Six commandes du DOS 3.3 ont dis- 
paru : IN IT (il faudra charger et exe- 
cuter un programme de formatage), 
INT et FP (le Basic Inteyer n*est pas 
supporte). De plus. MAXFILES 
(ProDOS gere directement les alloca 
lions memoire el tolere 8 fichiers ou- 
verts simultanement). MON et 
NOMON (en contrepartic, la com 
mande TRACE de F Applesoft fonc- 
tionne correctement) sont purement 
et simplement ignores par ProDOS. 

Les commandes nouvelles ou 
modifiers 

Plusieurs instructions concernent la 
manipulation des catalogues : 

CATALOG garde son sens habitue! 
et affiche les fichlers dependant du 
prefixe donne, avec indication de la 
date de derniere modification et des 
capaciles libre et occupee du vo- 
lume : les tailles sont exprimees en 
blocs correspondant a 2 secteurs, soit 
512 octets. En effet, ProDOS est 
(comme le SOS) de filiation Pascal 
ce qui expliquc la coTncidence de la 

taille de bloc. 

CAT foumit une version plus 
complete du catalogue, sur 80 colon 
nes. 

PREFIX, deja mentionne. permet de 
modifier le prefixe. 

CREATE permet de creer un fichler 
catalogue. 

— : cette nouvelle commande tres 
pratique (prononcez "dash") peut 
etre utilisee a la place de RUN. 
BRUN ou EXEC 

FLUSH equivaut a un CLOSE, mais 
laisse le fichier ouvert. 
FRE est une commande de net 
toyage memoire beaucoup plus ra- 
pide que celle de F Applesoft. 
STORE et RESTORE perrnettent res- 
pectjvement de stocker sur disque et 
de rappeler les variables d'un pro- 
gramme Applesoft. 

Enfin, ProDOS autorise Fadjonction 
de nouvelles commandes a son vo- 
cabulaire, a la difference du DOS 3.3 
ou il fallait pour cela savoir jongler 
en assembleur. 

Les commandes ameliorees 

Les autres instructions de ProDOS 
sont semblables a celles du DOS 3.3, 
mais component de tres nombreuses 
ameliorations qu'il serait trop long dp 
detailler ici; ainsi, il devient possible 
de pr^ciser Fadresse de fin d'un pro- 
gramme binaire (BSAVE ECRAN, 
A$2000,E$3FFF), ou de charger un 
programme Applesoft puis de F exe- 
cute r a partir d'une ligne precise 
(RUN PROGRAMME, @200). 

Les instructions APPEND et CliAIN 
fonctionnent correctement sous 
ProDOS. Enfin, les commandes IN# 
et PR# peuvent preciser directement 



Fadresse d'une routine d'entree ou 
de sortie. 

Conversion des programmes 
Applesoft 

La progrommation sous ProDOS est 
done sensiblement la meme que sous 
DOS 3.3 et la conversion de pro- 
grammes en Applesoft ne devrait pas 
poser de problemes majeure. 

II existe neanmoins une difference 
fondamentale dans Finterception des 
commandes entre le DOS 3.3 et 
ProDOS. Le DOS 3.3 controle si. au 
debut d une ligne, on veut imprimer 
le caractere Ctrl-D. ProDOS, pour sa 
part, controle chaque instruction a 
travers la routine TRACE; lorsqu'il 
rencontre une instruction PRINT, il 
verifie si le premier caractere est un 
Ctrl-D. Conclusion : 1' habitude de 
certains (bons) programmeurs de 
faire preceder un Ctrl-D par un re- 
tour chariot, en definissant D$ = 
CMR$(13) + CHR$(4), est mainte- 
nant a bannir. Deuxieme implica- 
tion : cette methode d' interception 
ralentit quelque peu Fexecution d'un 
programme (environ 5 a 8%) mais. 
en contrepartie, le nettoyage de la 
memoire et la gestion des fichiers 
sont beaucoup plus rapides avec 
ProDOS. 

Fonctionnement interne 

Cette derniere partie sadresse aux 
habitues de Fassembleur; il n'est pas 
question d'indiquer dans cetle pre- 
miere presentation F organisation de- 
taillee des routines en memoire ou 
des pointeurs physiques sur disque 
de ProDOS, rnais plutot de fournir 
un apercu de son fonctionnement. 

Historiquement, on divise le DOS 
3.3 en trois modules dlstincts : le 
"Captain" interprete les commandes, 
le "File Manager" gere 1* allocation 
des fichiers sur une disquette, et 
"RWTS" enfin. assure la lecture, 
Fecriturc ou le formatage d'un sec- 
teur. 

RWTS est sensiblement identique 
sous ProDOS, sauf qu'il est incapa- 
ble de formater un disque et a ete 
rebaptise "Disk Driver". C'est d'ail- 
leurs la meme routine qui est utilisee 
sous Pascal et CP/M; seul son equi- 
valent sous DOS 3.2, avec ses pistes 
de 13 secteurs, differe. Bien evidem- 
ment, le Disk Driver est un module 
different lors de Femploi d'un disque 
dur. 

ProDOS raisonne en blocs, chaque 
bloc etant une unite logique de 2 
secteurs physiques. II y a done 35 * 
16 / 2 = 280 blocs sur une disquette 
normale. 

A Finverse du DOS 3.3 qui reside in- 
tegralement en memoire, ProDOS se 
compose de deux parties distinctes, 



la deuxieme etant chargee en fonc- 
tion des besoms. 

Noyau de ProDOS : le Kernel 

Le ProDOS Kernel contient F equiva- 
lent du File Manager et de RWTS: il 
occupe F ensemble de la carte Ian- 
gage (a Fexception de la zone 
$D000 $D0FF de la Bank 2), ainsi 
au'une petite zone ($BF00-$BFFF) 
destinee a "switcher" entre les diffe- 
rentes parties hautes de la memoire 
et a recevoir des appels de program- 
mes externes. 

Cct ensemble est egalcment appele 
M.L.I. (pour Machine Language In- 
terface). 

II peut etre appele directement par 
un programme en assembleur. Son 
equivalent sous DOS 3.3 serait un 
point d'entree unique pour Fappel de 
RWTS et du File Manager, avec une 
table des parametres egalement uni- 
que La syntaxe d'appel est : 

JSR MLI :MLI=$BFO0 

DFB CMDNUM :type de commande 

de fichiers (sauf Basic) 
DA PARAM ;adresse de la table des 

parametres 
BNE ERREUR ;en retour. accumula- 

teur=type d'erreur 

Les commandes disponibles concer- 
nent la lecture ou Fecriturc d'un bloc 
ou d'un fichier texte, le prefixe, etc. 
Deux utilitaires livres avec ProDOS 
facilitcnt Fapprentissage : FEXERCI 
SER permet cFetudier Fexecution des 
appels et BUGBYTER (voir Fanalyse 
dans ce numero) permet de "debug- 
ger" un programme assembleur. 

Interface avec F Applesoft : 
BASIC. SYSTEM 

Le noyau de ProDOS permet de 
gerer tous les fichiers qui ne sont pas 
des programmes Applesoft. En effet, 
pour utiliser ces derniers, ainsi que 
I'interpreteur de commandes, il est 
necessaire de charger une deuxieme 
partie de ProDOS, qui porte le nom 
BASIC SYSTEM et occupe les adres- 
ses $9600-$BEFF. 

Notons que I IIMEM se trouve alors a 
la meme position qu'avec le DOS 
3.3; de toute facon, il est preferable 
avec ProDOS de ne pas mettre d' ins- 
truction HIMEM dans un programme 
Applesoft (et surtout pas un HIMEM 
qui ne correspondrait pas a une li- 

mite de page memoire). ProDOS ge- 
rant lui-meme F allocation de la RAM 
par sections de 256 octets. 

Oubilez HELLO, apprenez START- 
UP Lors du boot d'une disquette, 
ProDOS n'execute pas automatique 
ment un programme Applesoft pre- 
cise lors de son initialisation, mais re- 
cherche dans le catalogue principal 
un fichier nomme STARTUP. S'il le 
trouve, celui-d est execute quelque 
soit son type (Applesoft, assembleur. 
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fichier Exec); ii est de la responsabi- 
lite de ce programme de charger ou 
non le BASIC SYSTEM. 

Certaines adresses de page zero sont 
utilisees par ProDOS . $3A-$3F par 
RWTS; $40-$4E par d'autres routi- 
nes qui les retablissent avant de rcn 
dre la main. Les vecteurs de la page 
3 sont egalement presents sous 
ProDOS. 

Format d'une disquette 

Rappelez-vous que. sous ProDOS, ii 
faut penser en blocs de 512 octets, 
et non plus en secteurs de 256 
octets. Les 280 blocs d'une disquette 
sont numerates dans l'ordre croissant 
des pistes ; a 7 sur la piste 0. 8 a 
15 sur la piste 1, etc. 

Les deux premiers blocs contlennent 
le "Loader ", c est-a-dire le pro- 
gramme, charge et execute par la 
routine du contrOleur de la disquette, 
qui lui-merne charge le ProDOS Ker- 
nel. 

Les blocs 2 a 5 contiennent le catalo- 
gue principal de la disquette (on dit 
aussi table des matieres), a raison de 
13 fichiers par bloc (d'ou une Iimite 
de 52 fichiers dans le catalogue pnn- 
cipaL etani enrendu que certains des 
fichiers peuvent etre des sous-catalo- 
gues). 



Le bloc 6 correspond a la carte du 
volume ("Volume Bit Map') qui 
fonctionne comme la VTOC du DOS 
3.3; chaque bit du bloc indique si 
l'un des blocs du volume est hbre ou 
nmipe Sur disque dur. il peut exis- 
ter jusqu'a 16 blocs formant la carte 
du volume et representant 16 * 512 

• 8 =65536 blocs done 33.554.432 
octets ! Sur une disquette. seuls les 
35 premiers octets, representant les 
280 blocs, sont utilises. 

Sous DOS 3.3. un fichier utilisait sys- 
tematiqueiiienl du mollis un secleur, 
appele TSL ('Track Sector List"), 
qui donnait les adresses des secteurs 
de dunnees de ce fichier. Une philo- 
sophie moins gourmande en place a 
ete adoptee avec ProDOS : 

• uu fichier de moins de 512 octets 
(1 bloc) est directement accessible; 

• un fichier d'une taille comprise 
entie 2 til 256 blocs necessite un 
bloc d'index; 

• un fichier d'une taille superieurc 
utilise un bloc d'index principal 
qui pointe vers au plus 128 blocs 
d'index sccondaircs. eux rr.emes 
pointant vers les blocs de donnees 
CbufiJ. 

II rVest pas question ici d'examiner 
individuellement la valeur des comp- 
teurs et pointeurs de ces blocs syste- 
mes (il faurirait y consacrer un article 



entier). Neanmoins ceux-ci deviouL 
etre etudies plus attentivement par 
ceux qui souhaitent developper des 
utilitaires . il faudra en particulier 
analyser les commandes UNDELETE 
("restoration" d'un fichier DELETe) 
et VERirY (similaire a celle du DOS 
3.3; ProDOS ne verifie pas I'integrite 
physique d'un fichier, mais unique- 
ment son existence). 

Conclusion 

ProDOS offre incontestablement des 
ameliorations considerables par rap- 
port au DOS 3.3. meme si on reste 
un peu sur sa faim (pas de gestion 
automatiquc des fichiers sequentiels 
Indexes, que Ton etait pourtant en 
droit d'attendre). Apple livre mainte- 
nant les tie et lie uniquement avec 
ProDOS, et souhaite en faire le nou- 
veau standard. II ne faut cependant 
pas esperer (craindrc?) la disparition 
prochaine du DOS 3.3, d'une part 
car ProDOS est tres gourmand en 
mcmoire (il occupe rrois fois plus de 

place), d'autre pan car plus de 
10.000 logiciels pour Apple tournent 
sur DOS 3.3 (soit dit en passant, plus 
que CP/M) : a ma connaissance. des 
programmes vedettes tels que Visi- 
Calc ou Apple Writer ne supportent 
pas (encore) ProDOS. 



La compatibility de l'Apple //c 

Guy Lapautre 



De$ bancs, d'essai de l'Apple tit figu- 
rent dans toutes les revues (Pom's a 
publie 2 "points de vue" dans son 
precedent riumero). Des demonstra- 
tions sont faites dans toutes les bouti- 
ques. Le constructcur propose une 
documentation bien fournie. Aussi 
avons-nous choisi d'aborder ici l'Ap- 
ple lie sous un angle un peu particu- 

Vous etes un familier de l'Apple lie. 
Vous possed*?? de nombreux logiciels 
du commerce (et d'autres que vous 
avez ecrits). 

Vous dispose? de peripheriques clas- 
siques ; lecteurs de disque, moiiiteut. 
imprimante (par exemple la Dot Ma- 
trix Printer d'Apple). 
Vous etes egalement acccutum£ a 
utiliser des penpheriques moins clas- 
siques : televiseur couleur relie a une 
carte RGB, poignees de jeu. 
Vous travaillez couramrnent sur ecran 
80 colonnes. 

Vous avez egalement une carte avec 
modem inteqre, qui vous simplitie 
bien la vie. 
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A quoi pouvez-vous vous attendre si 
vous decidez de "passer a l'Apple 
f/c v ? C'est a cctte question, a notre 
sens fondamentale, que nous allons 
essayer de repondre 

Le premier contact 

La surprise du poids et de la taille. 
Vous vous y attendiez bien sur, mais 
cette petite boite au design agreable 
surprend toujours. Autre surprise, 
moins agreable celle-la : I'alimenta- 
tion, separcc. reiativement lourde 
(1,4 kg environ), qui ne tient pas 
dans la sacoche C'est deja moins 
portable... 

II y a aussi le problems de Tecran. 
Faisons confiance a Apple, qui an- 
nonce pour la fin de Tannde un 
ecran plat rabattable de 24 lignes par 
80 colonnes. 

Soulevons le couvercle... Non, man- 
vaise habitude ! On rVouvre pas l'Ap- 
ple lie. C'est un systeme de type 
ferme. et, en principe, vous pouvez 
tout faire sans Paide des fameux 

■ 



connecteurs d'extension de l'Apple 
y/e. Habituez-vous a brancher direc- 
tement vos peripheriques sur la bat- 
terie de connecteurs specialises, a 
i'ani&re He I'appareil. 

Branchons. C'est simple, avec le lec 
teur inteyre el les connecteurs exter- 
nes. Petite disillusion, si vous n'y 
aviez pas fait attention, ni votre Dot 
Matrix, hi vos lecteurs de disques de 
l'Apple //e ne sont utilisables. 
La Dot Matrix est une imprimante 
parallele, la sur lie iiiiprirnaiile de 
l'Apple lie est une "serie". II va vous 
falloir acheter une autre imprimante, 
Tlniage Writer d'Apple (la meme que 
pour Mac Intosh) par exemple. 
Le controleur de disques n'a pas les 
meines caracteristiques que celui de 
l'Apple He. 

Allons un peu plus loin 
dans la decouverte 

Votre carte RGB ne trouve evidem- 
ment pas sa place, puisqu'il n'y a pas 
de connecteurs d'extension. Mais 



vous trouverez, en serie. un adapta- 
teur RGB fonctionnant sur prise Heri- 
tel Pas. de difficulty de ce cote. 
Meme le son est renvoye sur votre 
televiseur. ce qui peut donner des 
effete assez spectaculatres sur certains 
jeux. Si vous possedez la disquette 
Pom's No 11. essayez-la. vous serez 
surpris de ta relative nettete de la 
voix syntherique. Quant au fonction- 
nement sur moniteur noir et blanc. 
pas de probleme. Vous utilise2 le 
meme cordon de raccordement. 

A propos de moniteur. la position de 
notre constructed prefere semble 
etre du style "faites ce que je dis. ne 
faites pas ce que je fate". Vous trou- 
vez dans le manuel d' installation : 
"ATTENTION - ne poscz pas le teie- 
viseui (uu quoi que ce soit d'autre) 
sur 1 ordinateur. ce serait trop lourd 
et bloquerait !es ouverturcs de venti- 
lation". Et la couverture du manuel 
Utilitaires Systeme represents., un 
Apple Ifc avec un moniteur qui sem 
ble posy dessus (cenes incline pour 
degager les ouvertures. rnais quand 
meme...). En fatt il s'agit du nou- 
veau moniteur Apple, avec son sup- 
port "etudie pour". 

Vos manertes de jeu ou votre joystick 
seront utilises sans difficult SI vous 
avez une version se branchant sur le 
connecteur arriere de votre Apple 
He : la prise est identique. 

Pas de place lion plus pour votre 
carte 80 colonnes. mais c'est un dis- 
positif qui se trouve en serie sur f Ap- 
ple 7c. Avec commutation manuelle 
par poussoir sur I'ordinateur ou re- 
connaissance directe par le pro- 
gramme. 

Mais vous allez tomber de haut en 
abordant le chapitre des communica- 
tions : bien sur. votre carte modem 
n'a pas sa place, mais de plus. RIEN 
d'analogue ne peut la remplacer 
Vous voici revenu au Moyen Age. au 
temps du modem acousrique par 
exemple. Pour un portable . 

Le clavier 

Doux, agreable a manier. il vous re- 
servera quelques suipiises. 

Fini le double clavier AZERTY 
QWERTY de r Apple e. si discute. 
Vous avez un AZERTY normalement 
constirue. Les touches sont disposees 
EXACTEMENT de la meme facon 
que sur le modele Ife, a 1' exception 
de la touche RESET. 

Une onqinahte en ce qui concerne le 
fonc.tionnement majuscules, minus- 
cules. Sur 1' Apple He, la touche 
"Caps Lock" ne verrouillait que les 
26 lettres de I alphabet mais ni les 
chiffres ni les signes. ce qui est parti- 
cuherement enervant quand on doit 
frapper beaucoup de valeurs numeri- 



ques (ce n est pas rare en informati- 
que...). Utiliser par exemple un ta- 
bleur en AZFRTY rpleve plias du 
numero de haute voltige que du mo- 
dele de convivialite ! Ici, "Caps 
Lock" verrouille lout ce qui est Irfts 
intcressant mais presente neanmoins 
des inconvenients. si on veut cette 
fois utiliser r.onramment "-" '*=" ":" 
ou ", " par exemple. Solution adop- 
tee: tes touches majuscules fonction- 
nent comrne des inverseurs. Si Caps 
Lock est enfoncee. elles font passer 
en minuscules. Sinon. elles font pas- 
ser en majuscules II faut un pen de 
temps pour s'y habituer. mais c'est fi- 
nalernent assez commode. 

NDLR : Cela vous posera des pro- 
blemes cependant si vous utilises 
aussi un IBM PC XT, qui se 
comporte differemment. 

Autre originalite : vous pouvez main- 
tenant taper les commandes. ainsi 
que les instructions de vos program- 
mes Applesoft, en minuscules aussi 
bien qu en majuscules : la conversion 
est faite automatiquement en majus- 
cules. Vous n'avez plus a craindre le 
mcchant "SYNTAX ERROR" si vous 
idpez "catalog" au lieu de "CATA- 
LOG". 

Et pour les fanatiques du QWERTY ? 
lis ne sont pas totalement oublies car 
une louche permet de stmuler un 
clavier QWFRTY sur le clavier 
AZERTY. Mais ce n'est qu'une roue 
de secours : la siqmficatjon QWERTY 
des touches n'etant pas indiquee sur 
celles-ci. il faut taper en aveugle. 
Tout le monde ne peut pas le faire. 

Systemes d 'exploitation 
et langages 

Le systeme d* exploitation standard 
de I' Apple c est PRODOS. qui peut 
aussi equipei I' Apple e. De meme. 
1'Apple c accepte le DOS 3.3 (mais 
pas les versions anterieures du DOS. 
Vous devrez conveitii. ce qui est sim- 
ple}. 

Vous pouvez aussi travailler en Pas- 
cal, en SUPER-PILOT ou en un 
LOGO nouveau, permettant une uti- 
lisation optimale de la memoirs cen- 
trale. Quelques frais a prevoir done 
(apres essai sommaire. il semble que 
Edi-Logo. dans sa version ecrite pour 
le He. fonctionne sur le He). 

Mais - et c'est la ou le bat blessera 
de tres nombreux utilisateurs - pas 
question de Soft Card, done de 
CP M. Hnis les logiciels prestigieux 
comme dBASE II (que rien d appro - 
chant ne vient remplacer). ou 
WORDSTAR. Bons a jeter aussi vos 
propres logiciels en Baste Microsoft. 
Meme "punition" pour les adeptes 
de MEM DOS. au moment ou les 
auteurs de ce systeme annoncent 
precisement plusieurs nouveautes. 



L' Apple c est un peu un ordinateur 
pour pere de famille peu soucieux 
d'innovation et dutilisation non stan- 
dard. A ce titre. certains le considere- 
ront comme une regression par rap- 
port au modele he. malgre ses 
nombreux progres technologiques et 
sa. capacite de memoire etendue. 
C'est sans doute pour cela que. pa- 
rait-il. le constructeur vise pour une 
bonne part le marche du premier 
ordinateur". 

C'est aussi pourquoi nous n'avons 
pas teste des logiciels ires parliculiers 
- dont sont souvent friands les lec- 
teurs dc Pom's tcls que HAIFA. 
PLE ou la gestion de masques, par 
exemple. 

Bien entendu. nous n'avons pas teste 

non plus les utilitaires classiques tels 
que copie. renumerotation. fusion de 
programmes. ... mais pour une autre 
raison : une version Apple c accom- 
pagne la machine (en ProDOS. sur 
la disquctte Utilitaires Systeme). 

Les langages utilises dans les pro- 
grammes testes se repartissent entre 
Applesoft Pascal UCSD. assembleur 
et meme Basic Entier. bien que ce 
dernier soit fortement tombe en de- 
suetude 

Vos programmes 

Selon le constructeur. "90 a 95 % 
des programmes ecrits pour Apple II 
ou Apple e sont compatibles Apple 
c". Si Ton excepte les logiciels fonc- 
tionnant sous un systeme d'exploita- 
tion non supporte. cela parait vrai 
quantitativement. Nous avons fait un 
certain nombre d'essais et aucun lo- 
giciel essaye ne s'est avere totale- 
ment impropre a fonctionner sur c. 
mais certains logiciels de premier 
plan sont pratiquement inutilisables. 

Nous aurojis l'occdsion d'exaininei 
un certain nombre de dysfonctionne- 
ments. cas par cas. 

Par ailleurs. nous avons Iirnite nos 
tests a des logiciels n exigeant qu'un 
seul lecteur de disques (re qui eli- 
mine par exemple Business Graphics 
ou Think Tank). 

Fnfin. ne perdons jamais de vue que 
les logiciels testes sont des logiciels 
ecrits pour I" Apple e. D'ores et deja. 
de nombreux auteurs proposent des 
logiciels nouveaux. ou des versions 
nouvelles. specialement ecrits pour le 
He 

Nous n'avons rencontre aucune diffi- 
culte Lenanl a lc* [ecoiiiiciis^ance de la 
carte 80 colonnes. ni au niveau de 
I'adaptateur RGB. Relativement a ce 
dernier point, nous ne notons pas 
d'amelioration par rapport aux resul- 
tats obtenus avec la carte "Chat 
Mauve" sur Apple e poui ce qui est 
de la qualite du texte sur ecran gra- 
phique. C'est toujours tres mauvais. 
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sauf pour les logiciels dont les au- 
teurs ont eu la bonne idee de choisir 
des solutions d'ecritiire monochrome. 

I .cs resultats des tests qui suivent ne 
visent nullement a constitute Ufc55 
bancs d'essai des logiciels correspon- 
dants sur Apple lit. Notre objectif 
etait de verifier si ces logiciels etaient 
acceptes. et si des dysfonctionne- 
ments evidents se produisaient. II est 
fort possible que cerlaines options 
posent des problemes que nous 
n avons pas rencontres au cours de 
ce bref tour d' horizon. 

Les tableurs 

L'eternel Visicalc subit l'epreuve avec 
succes, dans sa version 40 colonnes. 

II en est Hp meme pour Magicalc, y 
compris dans son option 80 colon- 
nes. 

Multiplan en revanche se tire moins 
bien d'affaire. Certes. les options que 
nous avons testees fonctiouiienl cor- 
rectement. Mais il existe un defaut 
redhibitoire : les caracteres sous le 
curseur sont totaleineni iltisibles (que 
ce curseur se trouve a Tinterieur du 
tableau ou sur la ligne d'entrec de 
donnees). Uaie version speciale 
Apple 7c est done necessaire (elle 
existe peut-etre). Vous pouve2. utili 
sateur du //e. remiser voire disquette 
systeme au magasin des accessoires 
inutiles. A moins que le fournisscur 
ne propose un echanye... 

Pas de Calcstar bien sur (CP/M). 

Les traitements de texte 

Magic Window II (Autotexte en Fran- 
Cais) fonctionne normalement, ainsi 
que son complement Magic Mailer 
(Autocourrier). 

II V a en revanche des problemes 
pour Apple Writer He. La ligne d'etat 
du systeme esl perturbee par des 
taches bizarres (interference, paratt-fl, 
avec le systeme de gestion des 
icones special a 1' Apple //c). Toute- 
fois, cet inconvenient n'empecherait 
pas d'utiliser le logiciel (la chance 
veut que les dileb Laches ne recou- 
vrent pas les mentions essentielles 
telles que position du curseur ou ca- 
pacity de memoiie utilisee). si ne s'y 
ajoutait le meme defaut que dans le 
cas de Multiplan : caracteres sous 
curseur illisibles (y cornpris le nom 
du fichier qui est toujours totalement 
iiiisible). A noter qu'on dispose de 
46845 earaches, au lieu de 27645 
sur le He. 

Meme rernarques done que pour 
Multiplan, ce qui met hors course 
une seconde vedette. Et bien sur pas 
de Wordstar... 

Les gestionnaires de fichiers 

Tout va bien pour les propiielaires 
de Visifile et de CX Multigestion (en 
40 colonnes), d'Omnis (malgre la 



jonglerie d* utilisation avec un seul 
disque). de P.F.S , dp V/isidex. Meme 
le vieux Doc Database (ecrit en Basic 
enLier. sous DOS 3.2, done apres 
transposition en DOS 3 3) passe sans 
probldmc. 

Mais voila. Pas de dBASE II (CP M). 
Et pas de produit de remplacement. 
Certes, Omnis 3 est annonce; mais il 
necessitera 3 lecteurs de disques, el 
ne pourra done pas tourner sur 
Apple f/c, qui ne peut etre muni que 
de 2 lecteurs (sauf a travailler sur dis- 
que dur?). A quand une VRAIE 
base de donnees sous ProDOS ? 

Les editeurs graphiqucs 

Nous avions quelques craintes. 
compte tenu des differences relative- 
ment importantes dans le systeme de 
gestion de l'ecran haute resolution. 
Elles n'etaient pas fondees. 

Nous n'avons pas pu faire I essai de 
Business Graphics, qui exige 2 lec- 
teurs de disques. Mais Visiplot (qui 



donne des traces couleur sur ecran 

de bonne qualite) aussi bien que 

Charts Unlimited, passent la rarnpe 

sans difficulte. De rneme que Mat- 
graph (Pom's No 10). 

Quelques programmes divers fecrits 
par 1'auteur) faisant appel aux pages 
graphiques haute resolution 1 ou 2 
nont pas pose d'avantage de proble- 
mes. 

Programmes de simulation et 
jeux 

Tous ceux que nous avons essayes 

ont fonctionne correctement. ce qui 
ne veut pas dire qu'il en sera tou- 
jours de meme. 

C'est dans ce domaine que la 
connexion double avec le televiseur 
(RGB plus son) joue pleinement sou 
role. De belles images (comme par 
exemple dans Adventure to Atlantis 
ou Twerps), et des bruits realistes (on 
peut monter la "sono". ce qui doit 
plaire a nos cheres totes blondes...). 



Des simulations a vocation pedagogi- 
que ecrites par Fauteur ont egale- 
ment donne des resultats satisfai 
sants. 

En resume 

L'Apple Ifc apparaitra aux posses- 
seurs d'Apple At? comme une ma- 
chine agreable a utiliser et que Tani- 
vee d'un ecran plat rendra vraiment 
portable A ceci sajoute la prochaine 
disponibilite de divers types de batte- 
ries rechargeables. dont sans doute 
un modele leger qui tiendrait dans la 
sacoche de transport. 

Chacun appreciera le clavier, la liai- 
son Peritel en serie. le lecteur de dis- 
quette integre, avec i'avantage d'une 
totale compatibility avec le lie au ni- 
veau des supports, mais en regrettant 
parfois d'en rester aux 140K. Cet in- 
convenient devrait etre iapidement 
compense par la possibilite de 
connecter un disque dur, ou un mini 
disque soupte 3 "1/2 (type Macin- 
tosh). 




L' utilisation des logiciels edits sous 
DOS ou Pascal ne posera guere de 
problemes, avec une restriction pour 
deux des logiciels classiques les plus 
pnses : Multiplan et Apple Writer. 
Mais n'oublions pas la venue d'Apple 
Works, qui combine, avec I'utilibaliuii 
de la souris, tableur. traitement de 
texte et gestionnaire de fichiers, dans 
des conditions satisfaisantes grace a 
la capacite memoire augmentee 
(ainsi bien entendu que de nom- 
breux logiciels nouveaux. ecrits sped- 
fiquement pour 1' Apple //c). 

Les "classiques". qui ne sont pas a la 
recherche de solutions plus ou moins 
bricolees, devralent etre de futurs uti- 
lisateurs heureux de TApple f/c, aver 
comrnc seul vrai regret, pour nombre 
d'enLre eux. F absence de CP'M et du 
cortege de logiciels de premier plan 
ecrits sous ce systeme d'exploitation. 

Les ,, bidouiIleurs' , ... feraient mieux 
de s'abstenir. 
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Analyse de la VTOC 



Guy d'Herbemont 



Voici un petit programme d'inspec- 
tion de la VTOC (Volume Table Of 
Contents) d une disquette en DOS 
3.3; il pourra. je I'espGre, etre utile 
aux debutants qui souhaitent com- 
prendre les mecanismes internes du 
DOS. ainsi qu'aux programmeurs 
chevronnes qui desivent une routine 
rapide illustrant la place restante dis- 
ponible sur disque. 

Pour rappel, la VTOC est la table 
des matieres cT une disquette. et le 
point d'entree obtigatoire pour toutes 
les operations sur les fichiers. 

Le programme affiche d'abord un 
dump de Ten-tete de 3a VTOC (pour 
plus de detail, consultez le Manuel 
DOS d'Apple, page 125), puis le 
schema d'ocrupation des pistes et 
secteurs. Enfin, il indique les nom- 
bres de secteurs libres et occupes. 

Le fonctionnement du programme 
est tres simple et se prete a toutes 
sortes d'ajouts possibles; il est nume- 
rote a partir de 61000 (pour pouvoir 
etre utilise comme sous-programme) 
et commence par un appel au DOS 
pour lire la VTOC actuelle. Apres 
avoir copie celle d (pai la routine de 
S.H.Lam - Voir Pom's 2) pour 
qu'elle debute a une limrte de page 
et facilite ainsi la lecture avec le ma- 
nuel. le programme enchain e vers 
Taffichage des pistes a 17. puis 18 
a 34 sur les columns de droite. 

La sous-routine d'affichage calcule 
pour chaque secteur son statut (libre 
si le bit est a 1. occupe slnon), met a 
jour le compteur de secteurs libres, et 
affiche le tout. 

A nptei que ce proyramme ne modi- 
fie pas le DOS. II ne fonctionnera ce- 
pendant pas avec des DOS places a 
une adresse inhabituelle (32K ou 



carte langage). mais pourra nean- 
moins examiner des VTOC situccs a 
des endroits exottques, pourvu que 



le DOS charge en 
connaisse leurs adresses ... 



me moire 



Execution du programme : Premier ecran 



9700- 04 
9708- 00 
9710- OO 
9718- 00 
9720- 00 
9728- 00 
9730- IF 



11 OF 03 
00 00 00 
00 00 00 
OO 00 00 
00 00 00 

00 00 00 

01 00 00 



00 00 FE 00 
00 00 00 00 
00 OO 00 00 
00 OO 00 OO 
00 00 00 7A 
00 OO OO 00 
23 lO OO 01 



Execution du programme : Second ecran 

012345S789ABCDEF 02234567S9ABCDEF 



OOOOOOOOOOOOOOOO 

1 OOOOOOOOOOOOOOOO 

2 OOOOOOOOOOOOOOOO 

3 OOOOOOOOOOOOOOOO 

4 OOOOOOOOOOOOOOOO 

5 OOOOOOOOOOOOOOOO 

6 OOOOOOOOOOOOOOOO 

7 OOOOOOOOOOOOOOOO 

8 OOOOOOOOOOOOOOOO 

9 OOOOOOOOOOOOOOOO 

10 OOOOOOOOOOOOOOOO 

11 OOOOOOOOOOOOOOOO 

12 OOOOOOOOOOOOOOOO 

13 OOOOOOOOOOOOOOOO 

14 OOOOOOOOOOOOOOOO 

15 OOOOOOOOOOOOOOOO 

16 OOOOOOOOOOOOOOOO 

17 OOOOOOOOOOOOOOOO 



IB OOOOOOOOOOOOOOOO 

19 OOOOOOOOOOOOOOOO 

20 1111111111111000 

21 1111 111111110000 

22 OOOOOOOOOOOOOOOO 

23 OOOOOOOOOOOOOOOO 

24 OOOOOOOOOOOOOOOO 

25 OOOOOOOOOOOOOOOO 

26 OOOOOOOOOOOOOOOO 

27 OOOOOOOOOOOOOOOO 

28 OOOOOOOOOOOOOOOO 

29 OOOOOOOOOOOOOOOO 

30 OOOOOOOOOOOOOOOO 

31 OOOOOOOOOOOOOOOO 

32 OOOOOOOOOOOOOOOO 

33 1111000000000000 

34 OOOOOOOOOOOOOOOO 
1=SE0TEUR LIBRE 



QCCUPES=531, LIBRE5-29, TQTAL=560 



1 REM *** PROGRAMME DISQ.VTOC *•* 

2 REM ** AFFICHE VTOC DOS 3.3 

61010 CALL 45047: POKE 72.0: TEXT : HOM 

E : REM BUFFER=46011 
61020 Dfcb FN P(X; = 256 * PEEK (X> * 

PEEK (X * X) 
61030 DEF FN B(X> = X > 2 - INT <X > 

2): REM 0=PAIR.1=IMPAIR 

61039 REM ** DEBUT DE LA VTOC **» 

61040 AS = "9700<B3BB . B3FEM N9700.9737 N 

D&23G": FOR 1 s I TO LEN <AS>; P 

OKE 511 + I, ASC ( MIDS <AS,I,i>> 

♦ 128: NEXT : POKE 72.0: CALL - 
144: PRINT : GET As: HOME : REM 
ROUTINE S.H.LAM 

61049 REM ** TABLF DFS SECTEURS *» 

61050 AS = "Ol234bb7a9ABCDEF" :N - O 



61060 PRINT SPC( 3) AS: PRINT :A = 460h 
7;B = *ibl3b;3 - l.;T - 4: GOSUb bi 
200: REM PISTES 0-17 

6107U VIA* i: HTAB 24: PRINT AS: PRINT 
IA = 4613S:B = 46203:5 = 21:T = 2 
4! GOSUb b!200: REM PlSTFS 1H-34 

biOao HTAB T: PRINT "1=SECTEUR LIBRE" 

61090 PRINT : PRINT "OCCUPES= "560 - N", 
LIBRES^ "N" , T0TAL=56O" : END 

61199 REM •* ROUTINE D'AFFICHAGE ** 

61200 FOR I = A TO B STEP 4:X = FN P ( I 

);XS * FOR J = 1 TO 16: XS = X 

S * 5TRS ( FN B(X)>IN = N + FN 
B<X>:X = INT (X / 2>: NEXT : HTA 
B S: PRINT (I - 46067) / 4:: HTAB 
T: PRINT XS: NEXT : RETURN 
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Si vous perdez votrc temps a recher- 
dier les petits bouts de papier sur 
lesquels vous inscrivez des informa- 
tions tres precieuses. par excmple 
votre niot de passe pour DB Master, 
ce programme est pour vous : il per- 
mit, en effet, dc stacker dans un fi- 
chier bien propre des notes courtes. 
et toujours disponibles. 

Ce programme a ete cree initiale- 
ment sur un Apple II Plus muni de la 
carte minuscules ROM LC (INDLR : 
ROM Lower Case, pour avoir les mi- 
nuscules sur un Apple II Plus) et 
d'une imprimante Centronics 739. 
CepenHant. il est assez simple, en 
changeant quelques lignes. de 
1' adapter a d'autres configurations 
qui np permettent pas I'introduction 
de minuscules ou possedent une 
autre impnmante. C'est ce qui est 
realise en partie par le programme 
BLOC-NOTES-DEBUT, qui donne le 
choix entre les confiqurations Apple 
II Plus. II Plus avec ROM LC. e et 
//c. 

Description du 
programme 

BLOC-NOTES est un programme de 
saisie de notes non ordonnees d'une 
longueur maximale de 120 catacte- 
res. soit 3 lignes d'ecran. qui permet 
la lecture de toutes les notes ou 
d'une seule. la modification, \a sup- 
pression ou I" -edition dans l ordre al- 
phabetique ou de saisie. 

Au debut de 1'exccution. le pro- 
yrainme charge un utilitalre de tri. 
l'utilitaire PROGR48K publie dans le 
Pom's 5. ct initialise une routine de 
generation de son et la routine "DOS 
7" du Pom's 2 qui permpt de 
connaitre le nombre de secteurs en- 
core disponibles sur la disquette a 
chaque CATALOG Ensuite, apres 
avoir indique son nom et la date, on 
arrive dans un menu constitue de 
deux pages. 

Pour pouvoir ecrire des notes, il faut 
d'abord "creer un fichier" (choix 3 
de la paqe 2 du menu) en indtquant 
le nom que Ton souhaite lui donnen 
cela cree un fichier annexe (suffixe 
par .NB) qui contient le nombre de 
fiches contenues dans le fichier prin- 
cipal. 

Ensuiie, "I existe deux possibilities : 

• ecrire une note en prenant le 
choix 1 de la premiere page du 
menu: 

• faire le choix 1 de la deuxieme 
page du menu, la "SAISIE RA- 
PIDE": cette solution, lors d'une 



longue saisie. est tres avantageuse. 

Les autres choix sont explicites par 
leur litre meme : 

LIRE TOUT LE FICHIER - LIRE 
UNE NOTE - EFFACER UNE NOTE 
- CORRIGCR UNE NOTE - CATA- 
LOGUE UE LA DISOUElTh (nom- 
bre de secteurs libres) - EDITER 
TOUTES LES NOTES (en 132 ca- 
racteres par lignel - ULTKUIKL UN 
FICHIER - COMPACTER TOUT LE 
FICI HER . une note effatcSe n'esl pab 
supprirnee mais remplacee par des 
caracteres blancs; il faut done reorga- 
niser peiiodiquement le Miter. 

Sur le plan ergonomique, le pro- 
gramme permet, au lieu de repeter a 
choque entree le nom du fichier. de 
faire apparaitre en tapant RETURN 
le titre du fichier en cours. Dans cer- 
tains cas. pour eviter de detruire in- 
tempestivement des notes ou meme 
le fichier entier, on est oblige de reta- 
per le nom du fichier. 

Configurations diverses 

Les operation* effectueeb puui inel- 
tre en oeuvre le programme avec di- 
verses configurations sont indiquees 
ci-dessous. Elles sont realisees auto- 
marjquement par le proqrarnme 
BLOC-NOTES- DEBUT. 

Apple II Plus et ROM LC 

Apres avoir fait le BRUN PATCH qui 
permet. quand on possede la ROM 
LC, de brancher les "minuscules *. 
on lance le programme par RUN 
BLOC-NOTES. 

Apple II Plus sans ROM LC 

Le programme MINMAJ de conver- 
sion minuscule/majuscule realise par 
Alexandre Avrane permet de trans- 
former automatiquement, une fois 
qu'il est charge, toutes les minuscules 
en majuscules. II suffit de faire prea- 
lablement "BRUN MINMAJ" pour 
utiliser le bloc-notes avec un Apple II 
Plus sans ROM LC. Ce programme 
est desactive par le RESET. Bien en- 
tendu, vous pouvez utiliser MINMAJ 
avec tout programme comportant 
des minuscules : les minuscules pa- 
rattront alors sous la forme de majus- 
cules, v compris les minuscules ac- 
centuees et le "q". 

Apple fie ou ffc 

Dans le cas de 1' Apple lie, il n est pas 
necessaire de "brancher" les minus- 
cules, il faut done suppilmei le* 
POKEs qui avaient perrnis de chan- 
ger CTRL-A en ESC pour le passage 
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Majuscule/minuscule (lignes 102. 
247. 905. 1045. 7001 et 9030). 
D'autre part, le resume des lettres 
avec accent (e, e. a et u) et de la 
cedille (5) n'est plus utile : on peul 
done supprimer les iiqnes 158 a 175. 

Modification de rimprimante 

Ceux qui ne possedent pas la Cen- 
tronics 739 doivent modifier les 
codes a envoyer a rimprimante dans 
les lignes 1785 (132 eaiadStes de 
large). 1787 (ecriture en condense et 
en double largeur) et 1788 (fin 
d'ecriture en double largeur). Ceux 
qui ne possedent pas d' imprimante 
en 132 colonnes ont interet a modi- 
fier les lignes 190. 210, 560. 950. 
1010. 1160. 1350. 1433. 144U. 
1750. 2540 et 6060. 



Note aux auteurs 

En raison de l'affluence des contribu* 
tion-s spontanees recues par Pom's, 
nous prions les lecteurs-auteurs de 
nous pardonner s'il nous faut quel- 
que temps pour analyser leurs crea- 
tions : a certaines periodes. nous re- 
cevons jusqu'a un article par jour ... 

Nous souhaitons aussi vous rappeler 
certains principes de base qui facilite- 
ront le liavdil d'analyse et de prepa- 
ration des articles. L'ideal est de 
nous faire parvenir une disquette 
contenant : 

• lc(s) fichier(s) du programme pro 
pOS6; 

• un ou deux firhiers d'pxemples. si 
le programme utilise des fichiers 
externes; 

• un texte sous forme de fichier 
TEXT en DOS 3.3 (au verso si le 
recto est dans un autre systeme 
d 1 exploitation), de preference en 
Apple Writer; n'oubliez pas d'indi- 
quer dans ce texte. le cas echeant. 
I'assembleur utilise ainsi que le 
type de materiel necessaire; 

Pensez aussi a mettre une etiquette 
avec vos nom, adresse et numero(s) 
de telephone, ainsi qu'une indication 
du systeme d'exploitarion (DOS 3.3. 
ProDOS. Pascal. ...) utilise sur cha- 
que face. II est utile d'ajouter un lis- 
ting du catalogue de la disquette 
avec une breve explication du role 
de chaque fichier. 
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Programme BLOC-NOTES. DEBUT 

REM BLOC-NO I ES DEBUT 

1 REM AA 10/4/84 



10 TEXT : HOME : INUERSF : SPFFD= 255: 
NOT RACE : MTAB 5: HTAB 16: PRINT 



" BLOC-NOTES 
* <4> 



: NORMAL : D$ = CHR 



Pom's n° 13 



w - ---- - 



23 



20 UTAB 15: PR I NTT : PRINT "1 - APPLE II 
+ ": PRINT "2 APPLE 11+ AVEC ROM 
LC" : PRINT M 3 - APPLE IIE/IIC" 

30 YTAB ?1 : PRINT : PRINT "MOT RE CONFIG 
URATION? — >";: GET A* : A = UAL ( 
At): ON A GOTO 100,110,120: GOTO 
30 

40 NORMAL 

45 PRINT : PRINT 

50 PRINT "AVANT DE LANCER L ' EXECUTI ON D 
U PR0GRAMME8LOC-N0TES T 31 VOUS PO 
SSEDE2 LA ROM LC FAITES BRUN PAT 
CH" 

70 NEW 



100 PRINT : PRINT D*"E:RUN SHI FT .*9A0O " I 

GOTO 120 

110 PRINT : PRINT D*"EXEC BLOC-NOTES- 1 1 

♦ LC" : END 

120 PRINT : PRINT 0$"RUN BLOC-NOTES" 



Fichier EXEC : 
BLOC-NOTES //+LC 

BRUN PATCH 
RUN BLOC-NOTES 



Programme BLOC-NOTES 



10 GOSUB 10UOO 

20 GOSUB 900O 

50 GOTO 20 

200 REM 



* 



Venture 



101 
102 
103 
105 
110 
120 



130 

135 

142 
145 
150 



ISA 



160 



160 

170 
175 

178 
180 

183 

185 
190 
195 
200 



210 
220 
230 
240 
245 
246 
247 



IS - "";CT - O 

POKE 40067,155 
XS = 

TEXT 

HOME : PRINT " ECRITURE" 
PRINT : PRINT "Quel est le nom du fichie 
r? & INPUT IS; IF IS < > "" THEN 

N0MS = TS 

IF NOMS m THEN POKE 76.8,255: POKE 7b 

9,208: CALL 770: GOTO 2U 
PRINT NOMS: KOR T = 1 TO 100: NEXT T; HO 

WE 

IF Nb < > O THEN 150 
GOSUB 4000 

IF NB > 500 THEN HOME S INVERSE : PRINT 
"CE FICHIER CONTIENT PLUS DF SOO FNTR 
EES": NORMAL : PRINT H On no peut plus 
rentrer de nouveile fiche. " : POKE 76 
8,255: POKE 7foy,20B: CALL 770: FOft T = 
1 TO 400: GOTO 20 

HTA& 1! VTAB 19: PRINT « 

VTAB 21: HT 

AB 1 

PRINT "SHIFT 8: e SHIFT 9: e '/': c 
ninUficulda /MAJUSCULES : ESC 
SHIFT P: a SHIFT 15 u" 

print "ee^eee^ee^eeeeee^eeeeee^ee^ee^e^s 
VTAB 1: HTAB 1 

PRINT "66«66e6666dedd6dd6M66«6M666666« 

eeee?eee" 

PRINT "Fichier "-NOMS 

PRINT "Entrez 120 caracterea au saxiiui 

<= 3 UqnftB )" 
PRINT "Fiche numero ";: INVERSE : PRINT 

NB: NORMAL 
PRINT 

& INPUT XS,L120 

IF X6 = THEN 20 

IF LEN (XS) > 120 THEN 

: PRINT "CHAINE TROP LONGUE ERREUR" 
OR T = 1 TO 4O0: NEXT T: GOTO 20 

PRINT OPS * NOMS * ",L121" 

PRINT WTS - NOMS - ",R";NB 

PRINT XS 

PRINT CLS + NOMS 
GOSUB 4100 
IF CT * 1 THEN 7030 
POKE 40067,125 



des tremas a 1'ecran 



INVERSE 



250 r.OTO 70: RFM FTN DE LA ROUTINE D'ECRITU 
RE 

50O REM »«•»#»»»«•»«»•*•«#«»• 

* lecture » 

* • 



501 
502 

505 
510 

520 



525 

530 
540 
560 
570 
580 
590 
600 
610 
615 
616 
617 

620 
625 



630 
640 
642 
645 

646 

650 
900 



902 
905 
910 
920 

923 
925 



926 

927 
930 

940 



HOMfc I VTAB 12 

PRINT "Netoyage memoire." un peu de Datie 
nee SVP":AP = FRE (0) 

1ST - "" 

TEXT : HOME 

HTAB 16: INVERSE : PRINT "LECTURE" : NORM 
AL : PRINT : PRINT "Quel est le nom du 
fichier a lire?":: fi. INPUT IS: IF IS 
< > THEN NOMS = IS 

IF NOMS = "" THEN POKE 768,255: POKE 76 
9,208: CALL 770: GOTO 20 

PRINT NOMS: FOR T - 1 TO 30O: NEXT T 

GOSUB 4000: REM » NB- ? * 

FK1NT OPS ♦ NOMS + ",L121" 

FOR X = 1 TO NB - 1 

PRINT RDS * NOMS * ",R";X 

& INPUT RPS(X> 

NEXT X 

PRINT CLS * NOMS 
HOME 

PRINT "Lecture de ";NOMS 
PRINT : POKE 34,2 
FOR Y = 1 TO NB - 1 

IF RPS(Y) = "" THFN PRINT " - ( " ■ Y ; " ) " ; : 
FLASH : PRINT "NOTE EFFACEE !!": NORMA 
L : NEXT Y 

PRINT "-("; Y;">";RPS(Y) 

NEXT Y 

PRINT : PRINT 

INVERSE : PRINT "> TAPE2 UNE TOUCHE APRE 
S LECTURE <": NUKMAL : GET 0L5S 
NB = 
GOTO 20 

REM ■ mm mm mm mm * » * » *.#.« - » *« » 

m • 

• correction • 

NOMS = •••• 
POKE 40067, 155 
TEXT : HOME 

HTAB IS: INVERSE : PRINT "CORRECTION" : N 
ORMAL 

PRINT : PRINT : PRINT : PRINT 

PRINT : PRINT "Quel est le nom du firth le 

r? "j : & INPUT NOMs? 
IF NOMS - THEN POKE 766,255: POKE 76 

9,206: CALL 770: GOTO 20 
PRINT NOMS 

GOSUB 4000: INPUT "Ou*l est le num^ro de 
la note que vouo voulez corriger ?" ;N 

IF N > = NB THEN HOME : PRINT "Ce nume 
ro n'existe pas": POKE 768,255: POKE 7 
69.70ft: CALL 770! FOR T = 1 TO 400: NE 
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950 

960 

970 

980 

985 

990 

1000 

1002 

1003 



1010 
1020 
1030 
10-40 
1045 
1050 
1 100 



1105 
1110 



1120 



1130 

1135 
1140 

1145 
1150 



llfoO 
1170 
1180 
1190 
1200 
1205 



1210 

1215 
1220 

1230 
1300 



130b 
1310 
2 320 

1330 



1335 
1340 
1350 
1360 
1370 
1380 
1390 
1400 



".L121" 
",R";N 



': PR1MT DAS 
INPUT TTS 



XT Ti GOTO 20 
PRINT OPS ♦ NOMS 
PRINT RDs * N0Ms * 
& INPUT DAC 
PRINT CLs ♦ NOMs 
HOME 

PRINT "CORRECTION: 
VTAB 2: HTAB 1: & 
IF TTS = , " THEN 20 

IF LEN (TTS) > 120 THEN HOME : PRINT 
"Chain© trap t0fl$ftie erreur" : POKE 76g , 
255: POKE 769.208: CALL 770: FOR T = 1 
TO 300: NEXT T: GOTO 20 
PRINT OPS * NOMS * '\L121" 
PRINT WTS - NOMS ♦ M .K";N 
PRINT TTs 
PRINT CLS • NOMS 
PUKfc 40067.129 
NB = O: GOTO 20 
REM - • - • - 



"LECTURE D'UNE 
PRINT : PRINT 



» lecture de note • 

* * 

* »*»■••*»■*■•*•**••*■• 

HONE 

HTAB 10: INVERSE : PRINT 
NOTE" : NORMAL I PRINT 
: PRINT 

6 INPUT IS. "Quel est le no* du fichier 
£ lire? ": IF Is < > "" THEN NOMs = 
IS 

IF NOMS = THEN POKE 7fcft,255: POKE 7 

69,208: CALL 770: GOTO 20 
PRINT NOMS 

PRINT ; INPUT "fluei est le numero cte la 

note? " ; NN 
GOSUB 4000 

IF NN > NB THEN HOME : PRINT "Ce numer 
o n'existe pas"; POKE 768,255: POKE 76 
9.208: CALL 770: FOR T = 1 TO 400: NEX 
T T: GOTO 20 

PRINT OPS * NOMS * ",L121" 

PRINT RDs * NOMS * ",R";NN 

& INPUT SYS 

PRINT CLS + NOMS 

INVERSE : PRINT "NOTE " ; NN ; " : " : NORMAL 

IF 5YS = "" THEN FLASH : PRINT "NOTE E 
FFAUEh !!": NUKMAL : PRINT ; PRINT : P 
RINT : PRINT : PRINT : GOTO 1215 

PRINT SYs: PRINT : PRINT : PRINT : PRI N 
T : PRINT 

VTAB 23 

INVERSE : PRINT ">TAPEZ UNE TOUCHE A 
PRFS l.FCTURF<" : NORMAL : GFT LSS 
NB - O: GOTO 20 
REM -•**» 

* compacta-ge » 

* ■ 

NUMS = "" 
TEXT : HOME 

HTAB 15: INVERSE : PRINT "COMPACTAGE" : 
NORMAL 

PRINT ; PRINT "Quel est le nom du fichi 
er a compacter ? ":: & INPUT NOMS: IF 
NOMS = "" THFN POKF 7F,8,?55: POKF 76 
9.2DS: CALL 770: GOTO 20 

PRINT NOMS 

GOSUB 4000 

PRINT OPS * NOMS * "„L121" 
FOR X = 1 TO NB - 1 
PRINT RDS * NOMS * ",R";X 
& INPUT RPS(X) : NEXT X 
PRINT CLS «■ NOMS 
REM •»•»•#»•»»•»« »*•*»**• 

■ 

- RPS(Y) -> BAStQJ • 

* • 



1405 0=1 

1410 FOR Y = 1 TO NB - 1 

1420 IF RPS ( Y) < > "' , THEN RAS(Q) = RPS(V): 

0-0*1 
1430 NEXT Y 

1433 PRINT OPS * NOMS ♦ ".L121": PRINT DES * 
NOMS 

1440 PRINT OPS * NOMS * ",L121" 
1450 FOR K = 1 TO - 1 
14b0 PRINT WTS + NUMS * ",K";K 
1470 PRINT BAS(K) 
1480 NEXT K 
1490 PRINT CLS ♦ NOMS 
1500 KhM »*»»*#«*»•»«»»»»•»»«# 
* * 
NB = U 



1530 
1540 
1550 
1060 
1700 



1703 



1705 
1710 
1720 

1725 



172G 
1727 



X72b 
1731 



PRINT OPS t NOMS ♦ '* . NB? , L10" 
PRINT WTS * NOMS * ".NB?,R1" 
PRINT Q; PRINT CLS * NOMS * " .NB?" 

NB - O: GOTO 20 

KEM »*#*#•»##**«»»«*#»### 



edition 



HOME : VTAB 12: PRINT "Netoyaqe mt&moire 
: un peu de patience 5VP":AP = FRF (0 

> 

NOMS = 
TEXT : HOME 

HTAB lb: INVERSE : PRINT "EDITION": NOR 

MAL : PRINT 
& INPUT YT3 r "Quel est le nom du iichie 

r a editer / " : it YTS < > "" THEN 

NOMS = YTS 
PRINT NOMS: IF NOMS = THEN POKE 7btf 

,255: POKE 769. 208: CALL 770: GOTO 20 
INPUT NMS, "Numero devant cheque erttr 

ee ? ": IF LEFTS <NMs,l) = "0" THEN N 

M = 1 

LEFTS <NMS,1> < > "0" THEN NM = 
INPUT DIS, "Double interliyne 
INPUT TCS,"Tiret devant chaqu 
? ": IF NOMS = "" THEN 20 



it* 

PRINT : & 
? ": & 
e entree 



1732 
1733 
1/34 
1735 
1736 
1737 
1/40 

1750 
17b0 

1770 
1780 
17fll 
17S3 
17Q5 

1787 



1788 
1790 
16O0 
1810 

1811 

1S12 

1813 

1825 
1820 
1830 



IF 



LEFTS (Dlc.l) - "0" THEN DI = 1 



IF LEFTS (DIS P 1) < > ,, 0" THEN DI ^ 



IK 



LEFTS (TCS.1J = "U" THEN TC = 1 



IF LEFTS <TCS.l) < 
IF D1S = 
IF TCS = 



> "O" THEN TC = 



THEN 20 
THEN 20 
(jU5UB 40O0: REM NB= t 
PRINT OPS * NOMS * ".L121" 
FOR X = 1 TO NB - 1 : PRINT RDS * NOMS ♦ 

",R";X 
6. INPUT RPS(X> ; NEXT 
PRINT CLS + NOMS 
Gn.SU R SOOO 
PR£ 1 

PRINT CHRS tS>; CHRS (177>; CHRS t!79> 

; CHRs <178>: CHRs (206 > 
PRINT CHRS (27); CHRS <20> : PRINT CHR 

s (27); CHRs (14>; TAB< 18VN0TES DU F 

ICH1ER ";NOMS 
PRINT CHRS (27;? CHRS fcJSj 
FOR P = 1 TO NB - 1 
IF RPS<P> = THEN NEXT 
IF TC - 1 AND NM = O THEN 

NT "-";" ";RPS(P> 
IF TC = 1 AND NM = 1 THEN 

NT »(";P;">- » : RPS<P) 
IF TC = O AND NM - O THEN 

NT RPS(P> 
IK TC = AND NM = 1 THEN 

NT "<":P:"> ":RPS<P> 
IF Dl = 1 THEN PRINT 
NEXT 

PRINT : PRINT : PRINT " 

le ":DTs 



HTAb lO: PRI 

HTAB lO: PRI 

HTAB lO: PRI 

HTAB 10: PRI 

";NS; " 
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1835 FOR WE = 1 TO 5: PRINT CHKS (10): NEXT 



1840 
1841 



1850 
210O 



prb u 

PRINT : & INPUT PQs, "Voulez-voua une a 
utre lmpresaiou ? " : IF LEFTS CPQ*,1) 
- ««o« jHtN 1783 
NB = 0: GOTO 20 



REM 



■ creation Hchier 
* 



■ - 



2110 NOMS = "" 
2120 TEXT : HOME 

2130 INVERSE : PRINT " CREATION D'UN FICHIER 
": NORMAL 

2140 PRINT : PRINT r FLASH : PRINT "ATTENTIO 
N": POKE 768,255: POKE 769,112: CALL / 
70: NUKflAL 

2150 PRINT "Lorsque l'on erfce un fichier, si 
un fi- chier du noma nom exiate deja , 
il aera d6f iniUiveinent ef£ac&." 
2160 PRINT : & INPUT NOS, "Voulez -vous vrain 

ent creer un fichier ? " 
2170 IF LEFTS <N0S,1> < > "0" THEN POKE 7 
68,255: POKE 769,208: CALL 770: GOTO 2 
O 

2180 & INPUT NOMS, "Quel eat le nom du fichi 

er ? ": TF NQMs = ■"- THEN 20 
2190 NB = O: GOSUB 4100 
2200 GOTO 20 

2500 KkM ............... 

• • 

• destruction fich. - 
■ • 

2502 NOMS = "" 
2505 TEXT 

2510 HOME : HTAB (14>: INVERSE : PRINT " DEST 

RUCTION" : NORMAL : PRINT 
2520 & INPUT NOS,"Voulez-vous vraiment d6tr 
uire un fichier ? ": IF LEFTS <NOs,i:> 
< > "O" THEN POKE 768,255: POKE 769 
,208: CALL 770: GOTO 20 
2530 PRINT : & INPUT NOMS, "Quel est le nom 

du fichier ? " 
2535 IF NOMS = THEN POKE 768,255: POKE 7 

69,208: CALL 770: GOTO 20 
2540 PRINT OPS ♦ NUrtS * ",121" 
2550 PRINT DES * NOMs 
2560 PRINT OPS * NOMS «■ " . ND?" 
2570 PRINT DES * N0M9 * ".ND?" 

2580 POKE 768,255: POKE /by, 112: CALL 770:NB 

= 0: GOTO 20 
2900 REM «... 



catalogue 



2905 TEXT 



2910 

2911 

2913 
2925 
2930 
2935 
2940 

2950 



2990 



3O00 



HOME : HTAB 14: INVERSE : PRINT "CATALU 

UUh": NORMAL 
PRINT : PRINT "Drive 1 ou 2 ? ";: & IN 

PUT DRs:DR = VAL <DRs> 
IF DR < 1 OR DR > 2 THEN DR - 1 
POKE 34,2 

PRINT CHRS (4) "CATALOG, D"DR 
PRTNT 

INVERSE : PRINT ">TAPEZ UNE TOUCHE APRE 

S LECTURE<" : NORMAL 
GET SDHS 
POKE 34,0 

POKE 768,255: POKE 769,112: CALL 77C:NB 

= 0: GOTO 20 
RE/1 »#•••..«». -•*........ 

• erreurs 



3001 CALL 803: TEXT : HOME 



3002 
3003 



3004 



3005 



3006 



3007 



3008 



3010 

3015 
3021 



3022 



3030 
3999 
40O0 



4010 
4020 
1Q30 

4040 
4050 
41UU 



NOMS = "":NH = o 

L = PEEK <222>: IF L - 5 OR L = 6 OR L 
= 11 THEN VTAB 11; PRINT "ERREUR DE D 
13UUETTE": POKE 768,255: POKE 769.208: 
CALL 770: FOR T = 1 TO 5O0: NEXT : GO 
TO 20 

IF L = 4 THEN VTAB Hi PRINT "DIQUETTE 
PROTEGEE": POKE /b8 , 25b ! POKE 769,208 
: CALL 770: FOR T = 1 TO 500: NEXT T : 
GOTO 20 

IF L - THEN VTAB 11: PRINT "PORTE DI 
5QUETTE OUVERTE": PUKE /68.2S5: POKE 7 
69,208: CALL 770: FOR T = 1 TO 600: NE 
XT T: GOTO 20 

IF L - 9 THEN VTAB 11: PRINT "DI SQUETT 
E PLE INE" : POKE 768,255: POKE 769,208: 
CALL 770: FOR T = 1 TO 6O0: NEXT T: G 
OTO 20 

IF L = 10 THEN VTAB 11: PRINT "FICHIER 
VEROUILLE" : POKE 768,255: POKE 769,20 
81 call //O: FUk T = 1 TO bOO: NEXT T: 
GOTO 20 

IF L = 7 THEN VTAB il! PRINT "VOLUMfc 1 
NCOMPATIBLE" : POKE 708,255: POKE 769,2 
08: CALL 770>; FOR T = 1 TO 600: NEXT T 
: GOTO 20 

INVERSE ! PRINT ERREU 

R ": NORMAL 

PRINT : PRINT : PRINT 

PRINT "Erreur en iiane ": PEEK (218> * 
PEEK (219) « 256i M H* rode ©rreur " : L 

PRINT "Voulez-vous aortir du programme? 
";: Si INPUT PUS: if LEFTS <P0s,l> < 
> "0 M THEN NB = 0: GOTO 9000 
HOME : PRINT " AU REVOIR II" 

END 

REM ..».*.»»»•»»■•«.■..».«» 
. • 
• NB = ? * 



PRINT OPS ♦ NOMS * " .NB/,L10" 
PRINT RDS * NOMS * ".Nb?,Rl" 
INPUT NB 

PRINT CLS * NOMS * ".NB?" 
RETURN 

KEM •*..................» 



NB 



Nb * 1 



.......»....■••... ... 

4110 NB = NB * 1 

4140 PklNT OPS ♦ NOMS ♦ ".NB?,LlO" 
4150 PRINT WTS • NOMS • ".NB?,R1" 
4160 PRINT NB 

4170 PRINT CLS * NOMS t " . NB?" 
41 SO RETURN 

4300 REM ....ii. ............ * ». 



fin 



4310 
4320 
5000 



HOME 

GOTO 3022 

REM »»«»»»»».»»«...»»#••• 



tri oul/uuii 



50O1 & INPUT FHS, "Vouloz-voua l'ordre alpha 
betique? " : IF LEFTS <FHS,1) < > "O" 
THEN RETURN 
bOlO CD = NB - 1 

5020 FOR Y = 1 TO CD:kP*(Yl = Y: NEXT Y 



5030 T*(OJ 
5040 TfcCii 
5050 T*<2) 
5060 TX<3> 
5070 T*<4> 



CD 

VSR ( VAL (RPS(O))? 
USR <RPX<0>> 

3 
2 
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5080 CD = TX(0) 
5090 CALL 31232 
5099 RETURN 
6000 REM 

■ • 
« destruction note * 
• « 



6010 HOME : HTAB 14: INVERSE I PRINT "DESTRU- 
CTION": NORMAL 

6020 & INPUT NOMS. "Quel est le now du fichi 
pr 1 ■• 

6030 IF NOMS « "•• THEN POKE 7b8,23S; POKE 7 

68 , 208; CALL 770: GOTO i20 
fa040 G05UB 4000: INPUT "Quel est le numero d 

e la note que voua voulez d^truire ? 

";N 

6050 IF N > - NB THEN POKE 768,235: POKE 7 
69,208: CALL 770: GOTO 20 

6055 MS = 

6056 RPS(N3 = •'" 

6060 PRINT OPS * NOMS * " , L121" 

6070 PRINT WTS * NUMS * VR";N 

6080 PRINT RIS 

6090 PRINT CLS * NOMS 

6100 NB - O: GOTO 20 

700O REM •» «■••»»»»»»»*»#»*»* »» 

• ■ 

• saiaie r«pide> * 



7001 PUKE 40067,155 

7002 HOME : HTAB 13: INVERSE : PRINT "SAISIE 

RAPIDE" : NORMAL : PRINT : PRINT : PRI 
NT ; PRINT 
7005 CT = l:IS = •"* 

7011 & INPUT IS, "Quel est le nom du fichier 

? ": TF IS < > THEN N0KS = IS 

7012 IF NOMS = THEN POKE 768,255: POKE 7 

69,208: CALL 770: GOTO 20 

7013 PRINT NOMS 

7015 GOSUB 4O0O: REM NB= ? 
7017 HOME 

702O VTAB 2: GOTO 130 

703O HOME : FK1NT "Pour arreter la saisxe ra 
pide. taper ESCsinon tapez une touch* 
quolconque" 

7035 XG - "" 

704O S = PEEK ( - lbja4): fUKE - 16368,0 
7045 IF S < 128 THEN 7040 
7050 TF S = 155 THEN GOTO 20 
7060 GOTO 7020 

8999 END 

9000 REM »»»•»»•««*••#••»»»»»» 

• . 
- menu * 

* « 
««*«*•«■■■•■•»■* •>. * . 

9005 CT = 

9010 TEXT : HOME 

9030 POKE 40067,129 

9070 V * IS GUSUB 9490: FOR V = 1 TO 22: HTAB 

1: PRINT "■":: HTAB 39: PRINT : NK 

XT V: GOSUB 9490 
908O VTAB 2: HTAB 10: INVERSE : PRINT "BLOC- 
NOTES PAGE 1": NORMAL 
9090 VTAB 3: HTAB 2: FOR 1=2 TO 38: PRINT 

"A": : MEXT I 
9100 FOR I - 1 TO 7: HTAB 3: VTAB 4 * 2 - 1 ; 

PRINT I J " . " ;MS< I ) : NEXT I 
9120 VTAB 21: HTAB 15: PRINT "VOTRE CHOIX " : 
CHRS (91) S" "J CHRS (93) ! VTAB 21: HT 
AB 28: GET CS: PRINT Cs 
9130 V * VAL (CS): IF V - O THEN 9120 
9135 IF V > 7 TH£N 9120 

9140 FOR I = TO 7 - V : VTAB 18 - 2 * I: HT 
AB 4: PRINT ">■*: IF 1 > THEN VTAB 2 
2-1: HTAB 4: PRINT "." 

9150 NEXT i: IF V = b THEN FOR I = 1 TO 2O0 
: NEXT 



9160 VTAB 4 ♦ 2 • V: HTAB 5: INVERSE : PRINT 

MS(V) : NORMAL 
9170 FOR 1=1 TO 100: NEXT 1 

yifclO UN V bUTU 100,000, 1100, bOOO, 900,2900, 92 

00 

92O0 REM *»•««»«« »*»««•*«**•(»«* 
• menu page 2 • 



9210 HOKF :V = 1: GOSUB 9490: FOR V = 1 TO 2 

2: HTAB i: PRINT HTAB 3'j: PRINT 

: NEXT V: G0SU8 949U 

9220 VTAB 2: HTAB 9: INVERSE : PRINT "BLOC-N 

OTES PAGE 2": NORMAL 
9230 VTAB 3: HTAB 2: FOR 1=2 TO 38: PRINT 

"e"; : NEXT I 
9240 FOR V = 8 TO 14; VTAB 2 • V - 10: HTAB 

3: PRINT (V - 7) :" .":MS(V) : NEXT V 
9260 VTAB 21 Z HTAB 15: PRINT "VOTRE CHOIX 

CHRS (91);" "; CHRS <93); VTAB 21: HT 

AB 28: GET G91 PRINT CS:V = VAL <CS) 
9270 IF V = THEN 9260 

9280 FOR I = TO 7 - V : VTah 18 - 2 » I: HT 
AB 4: PRINT ,, >" : IF I > THEN VTAB 2 
0-2*1: HTAB 4: PRINT 

9290 NEXT Ii IF V = 7 THEN FOR 1=1 TO 20U 
: NEXT 

9300 VTAB 4 - 2 - VI HTAB 5: INVERSE : PRINT 

MS<V - 7) : NORMAL 
9310 rUK 1 = TO 100; NEXT 1 

9320 ON V GOTO 7000, 1700 , 2100, 2500 , 1300. 430u 
,9000 

9490 VTAB V: HTAB Z\ FOR H = 2 TO -30 : PRINT 

"e/";: NEXT H; RETURN 
9500 REM »*•«»»»»«**»»»»»#•##» 
« * 
secteurs libres * 



9530 YS = "A884:5B N ADC3:20 00 B6 M B6O0:A> 
OC 20 4A F9 A9 00 85 40 85 41 AO C8 IB 
B9 F2 B3 FO OE OA 90 FB 48 E6 40 DO 
2 E6 41 68 18 90 FO 88 DO E9 A6 40 Ab 
41 AC 00 EO CO 20 DO 07 20 IB E5 20 2F 
AE 60 20 24 ED 20 2F AE 60" 
0540 GOSUB 95SO 
9345 RETURN 

9550 YS = YS + " N D9C6G" 
9560 FOR 7 = 1 TO LEN (Ys) 

9570 POKE 511 - I, ASC < MID5 <YS,I,1>) • 12 
8 

9580 NEXT : POKE 72,0: CALL - 144 
9590 RETURN 

10000 REM -•«•►*•••»•-..------. 

» H 

* initialisation * 
» » 



10001 TEXT : HOME : VTAB 10: PRINT "initiali 
sation de la routine de tri, de la 
routine de qeneration -de son, et d 

p la routine permettant de aavoir le 

nosbre de secteurs libres a chsque 
CATALOGUE" 

10003 HIMEM: 31230: PRINT CHRS (4> "CLOSE" 

10004 GOSUB 20000 

10005 GOSUB 40000 

10008 GOSUB 45O00 

10009 GOSUB 9500: HOME : VTAB (10): PRINT "c 
hargement de PR0GR48K, et de TRIL.M3" 

10010 PRINT CHRS <4) "BRUNPR0GR4SK" 
10O20 PRINT CHRS (4 ) "BLOADTRIL . M3" 
10050 DS = »« 

10060 OPS = DS *■ "OPEN" 
10070 RDS = DS * "RF.AD" 
10O80 CL» = DS +■ "CLOSE" 
10090 WTS s DS * "WRITE" 
10095 DES = DS +- "DELETE" 
10100 NOTRACE 
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10105 

10107 

loioe 

10110 



10115 
10120 

10126 

10130 

10135 

10160 
1 0300 
20000 



ONERR GOTO 3000 

DIM RPS(50O) ,RAS(SOO> , MS M 4 "i 

DIM RP*<50O>,TX<4> 

HOME ; PRINT "Le programme est charge 
• 4 : PRINT : PRINT "Retuez la diaquette 

programme": PRINT : PRINT "et mettez 
la diaquette donnees " 

POKE 766,255: POKE 7S9,212; CALL 770 
PRINT : PRINT "Quel eat votre no* ? " : 
: & INPUT NS 

IF N£ = "" THEN VTAB 6: CALL - S&S: 
GOTO 10120 

PRINT : PRINT "Quelle est la date? "; : 

& INPUT DTS 
IF DTS = "" THEN VTAR A! HALL - AAA: 

GOTO 10130 
FOR I = 1 TO 14: READ MS < I) : NEXT 
GOTO 20 

REM **«**■«*«•««••*•*««»* 
• 

• routine d'eireura • 



20010 RES = "323:68 AS 68 A& OF 9A «48 96 46 b 
ND9C6G" : FOR I = 1 TO LEN (RES): PO 
KE 511 * I, ASC ( MIDS <RES r I,l>> ♦ 12 
8: NEXT : POKE 72,0: CALL - 144 

2O02O RETURN : REM 



40000 REM 



init. rout, tri 



40O10 
40020 
40O30 
40040 

40055 
45000 



POKE 10,76: POKE 11,26: POKE 12,3 

POKE 794,165: POKE 795,132 

POKF 796,164: POKE 797,131 

POKE 798,76: POKE 709,242: POKE 800,22 

6 

RETURN 

REM «•••.<........#.».•».. 

• • 

• mat, rout, son » 



(»-»■»•«« 



••••*»»**« 



45010 MUS = "300:02 02 AD 30 CO 68 DO 05 CE 
1 03 FO OO CA DO F5 AE 00 03 02 03 
60 ND9C6G" . FOR I = 1 TO LEN <MU5> : P 
OKE 511 * I, ASC < MIDS (MUS.I.IX) ♦ 1 
28: NEXT : POKE 72,0: CALL - 144 

45020 RETURN : REM 

50300 DATA ECRIRE . LIRE TOUT LE FICiUER.LIRE 
UNE NOTE,EFFACER UNE NOTE , CORRIGER UN 
E NOTE, CATALOGUE DE LA DISUUETTE , 5UI TE 
MENU 

50310 DATA SAiSIE RAP1 DE , EDI TER TOUTHS LES N 
OTES, CREER UN FICHIER , DETRUIRE UN FICH 
IER , COMPACTER TOUT LE F 1CH IEK , FIN . RETO 
UR DEBUT MENU 



Programme PATCH 



9C00- 


A9 


ID 


80 


F? 


03 


A9 9C 80 


9C09- 


F3 


03 20 


6F 


FB 


A9 28 85 


9C10- 


38 


A9 


?C 


85 


39 


A9 9B 8D 


9C18- 


01 


90 


4C 


D3 03 


A9 28 85 


9C20- 


38 


A9 9C 85 39 


4C BF 9D 


9C98- 


8F 


D6 


9C 08 


48 


EO 00 DO 


9C30- 


03 


8E 


04 9C 


OA 


BD 07 01 


9C38- 


C9 


77 


DO 


1 I 


BD 


08 01 C9 


9C40- 


FD 


DO 


OA 


A9 


B6 


9D 07 01 


9C48- 


A9 


9C 


9D 


08 


01 


68 AF 06 


9C50- 


9C 


8D 


D7 


9C 


A4 


24 A9 20 


9C50 


91 


28 


A9 


10 


20 


A8 FC E6 


9C60- 


4E 


DU 


OF 


E6 


4F 


Bl 28 CD 


9C68- 


57 


9C 


DO 


EA 


AD 


D7 9C 4C 


9C70- 


59 


9C 


AD 


D7 


9C 


2C 00 CO 


9C78- 


10 


EO 


91 


28 


AD 


00 CO 2C 


9C80- 


10 


CO 


C9 


81 


DO 


OD AD D4 


9C88- 


9C 


49 


FF 


8D 


D4 


9C Bl 28 


9C90- 


4C 


51 


9C 


2C 


D4 


9C 10 ID 


9C98- 


8C 


D5 


9C 


AO 


OA 


88 30 08 


9CA0- 


D9 


CO 


9C 


DO 


F8 


B9 CA 9C 


9CA8- 


AC 


D5 


9C 


C9 


DB 


BO 06 C9 


9CB0- 


CI 


90 


02 


09 


20 


28 60 



Programme MINMAJ 



9A00- A9 OF 85 36 A9 9A 85 37 

9A08- A9 00 R5 48 4C FA 03 8D 

9A10- 4A 9A 08 8A 48 AD 4A 9A 

9A18- A2 07 DD 3A 9A FO OC CA 

9A20- 10 F8 C9 EO 90 08 38 &9 

9A28- 20 DO 03 BD 42 9A 8D 4A 

9A30- 9A 68 AA 28 AD 4A 9A 4C 

9A38- FO FD CO DC EO FB FC FD 

9A40- FE FF CI C3 Al C5 D5 C5 

9A48- AD Al 00 FF 



Programme PROGR 48K 



9300- 


A9 


4C 


8D 


F5 


03 


A9 


IB 8D 


9308- 


F6 03 A9 


93 


8D 


F7 


03 A9 


9310- 


00 85 73 A9 93 


85 


74 60 


9318- 


02 BE 80 C9 94 


FO 


ID C9 




AB 


FO 


13 C9 BO 


FO 


12 C9 


9328- 


B5 FO 09 C9 


AA 


DO 


03 4C 


9330 


4E 


94 


60 


4C 


2F 


94 


4C rr 


9338- 


93 


4C 


05 


94 


A4 


25 


84 07 


9340- 


A4 


24 


84 


08 


A9 


00 


85 09 


9348- 


85 


OA 


90 


Rl 


nn 


?n F3 DF 


9350- 


20 


6C DD 85 


95 


84 


86 AO 


9358- 


00 


Bl 


88 


C9 


2C 


DO 


35 20 


9360- 


Bl 


00 


C9 


4C 


FO 


14 C9 56 


9368- 


FO 


18 


C9 


48 


FO 


ID C9 22 


9370- 


DO 


05 


£6 


06 


4C 


94 


93 4C 


9378- 


8D 


94 


20 


rs 


E6 


06 


09 4C 


9380- 


57 


93 


20 


F5 


E6 


CA 


86 07 


9388- 


4C 


57 


93 


20 


F5 


E6 


CA 86 


9390- 


08 


AC 


57 


93 


A5 


07 


85 ?5 


9398- 


A5 


08 


85 


24 


20 


22 


FC A5 


93A0- 


06 


FO 


12 


38 


20 


81 


DE 20 


93A8- 


3D 


DB 


EA 


EA 


EA 


EA 


EA EA 


93B0- 


EA 


EA 


20 


B7 


00 


A6 


09 FO 


93SS - 


19 


A3 


32 


48 


20 


84 


FE A9 


93C0 


AE 


20 


ED 


FD 


CA 


DO 


FA A6 


93C8- 


09 


20 


10 


FC 


CA 


DO 


FA 68 


93D0- 


85 


32 


20 


6F 


FD 


8A 


FO IE 


93D8- 


DD 


FF 


01 


C9 


83 


FO 


1A BD 


93E0- 


FF 


01 


29 


7F 


9D 


FF 


01 CA 


93E8- 


DO 


F5 


A9 


00 


AO 


02 


A2 8D 


93F0- 


20 


E9 


E3 


2U 


9A 


DA 


A2 OU 


93F8- 


60 


20 


3A 


FF 


4C 


DO 


03 



Programme TRIL. M 3 

/AOO- AO 00 Bl 83 85 94 C8 Bl 

7A08- 83 85 93 C8 Bl 83 85 96 

7A10- C8 Bl 83 85 95 C8 Bl 83 

7A18- 85 9A C8 Bl 83 85 99 C8 

7A20- C8 Bl 83 85 8A C8 C8 Bl 

7A28- 83 85 8B AO 00 A6 8A EO 



ZHOU 


02 


FO 


ill) 


tu 


U3 


FO 


13 


EO 


7A38- 


05 


FO 


13 


A9 


FF 


85 


8A 


60 


7A40- 


A9 


80 


91 


95 


98 


C8 


91 


95 


7A4B 


DO 


OE 


A9 


00 


FO 


02 


A9 


FF 


7A50- 


A4 


&A 


88 


91 


95 


88 


10 


FB 


7A58- 


18 


A5 


8A 


65 


95 


85 


95 


90 


7A60- 


02 


F6 


96 


1 8 


A5 


8B 


65 


99 


7A68- 


85 


99 


90 


02 


E6 


9A 


A5 


93 


7A70- 


DO 


02 


C6 


94 


C6 


93 


DO 


07 


7A78- 


A5 


94 


DO 


03 


85 


8A 


60 


18 


7A80- 


A5 


95 


85 


97 


65 


8A 


85 


95 


7A88- 


A5 


96 


85 


98 


69 


00 


85 


96 


7A90 


18 


A5 


99 


85 


9B 


65 


88 


85 


7A98- 


?? 


A3 


?A 


85 


9C 


69 


00 


85 


7AA0- 


9A 


20 


CA 


7A 


20 


FO 


7A 


10 


7AA8- 


IB 


20 


36 


7B 


38 


A5 


97 


E5 


7AB0- 


8A 


85 


97 


BO 


02 


C6 


98 


38 


7AB8- 


A5 


9B 


E5 


8B 


85 


9B 


BO 


E4 


/ACU- 


C6 


9C 


90 


EO 


20 


69 


7B 


4C 


7AC8- 


6E 


7A 


A4 


8A 


CO 


05 


FO 


OB 


7AD0- 


8R 


Bl 


9fi 


99 


9D 


00 


88 


10 


7ADB- 


F8 


30 


07 


A4 


96 


A5 


95 


20 


7AE0- 


F9 


EA 


A4 


8B 


FO 


09 


88 


Bl 


7AE8- 


99 


99 


A5 


00 


88 


10 


F8 


60 


7AF0- 


A6 


8A 


EO 


03 


FO 


1C 


90 


09 


7AF8- 


A4 


98 


A5 


97 


20 


B2 


EB 


A8 


7B00- 


60 


AO 


1 


38 


A5 


9E 


Fl 


97 


/BU8- 


by 


A5 


91) 


F 1 


97 


50 


02 


49 


7B10- 


FF 


60 


AO 


02 


Bl 


97 


99 


AO 


7B18- 


00 


88 


10 


F8 


C8 


C4 


AO 


Ffl 


7B20- 


FO 


C4 


9D 


FO 


08 


Bl 


9E 


Dl 


7B28- 


Al 


90 


05 


DO 


06 


C8 


DO 


ED 


7B30- 


A9 


FF 


60 


AV UU 


6U 


AU 


UU 


7B38- 


Bl 


97 


48 


C8 C4 8A 


DO 


F8 


7B40- 


98 


18 


OA 


A8 89 68 91 


97 


7B48- 


88 C4 


8A 


BO F8 A5 8B FO 


7B50- 


17 


AO 


00 


Bl 9B 48 C8 C4 


7B58- 


8B 


DO 


F8 


98 18 OA A8 


88 


7B60- 


69 91 


9B 


88 


C4 88 BO F8 



7068- 60 18 A5 97 65 8A 85 97 

7B70- 90 02 E6 98 A4 8A CO 05 

7B78- FO OB 88 B9 9D 00 91 97 

7B80- 88 10 F8 30 06 A4 98 AA 

7B88- 20 2B EB A4 8B FO 14 88 

7B90- 18 A5 9B 65 8B 85 9B 90 

/B90- 02 E6 VC BV A5 00 91 9B 

7BA0- 88 10 F8 60 
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Impression des variables 

Laurent Esnault 



Lots de la mise au point d un pro- 
gramme Basic, on a souvent bcsoin 
de connaitre le coritenu des varia- 
bles. II faut pour ce!a faire d'innom- 
brables PRINTs pour les variables 
simples et les tableaux : des boucles 
FOR-NEXT qui ont comme desavan- 
tage d'etre longues et fasridieuses a 
1' usage ainsi que muettes sur le rang 
des variables dans le tableau. De 
plus, un autre probleme peut se pre 
senter : supposons que le pro- 
gramme Basic cree une variable. V 
par exernple, qui s'annulc durant le 
traitement. Comment savoir si le de- 
roulement du programme a ete nor- 
mal - si Ton tape "PRINT V" apres 
Fexecution. I'Applesoft lepondra par 
un "0" difficilement exploitable. 

PRNVAR {PRiNt VARiables) permit 
de faire disparaitrc cc genre de diffi- 
cultes. Lout en fournissant des rensei- 
gnements supplementaires. avec 
1 aide du farneux "&" (ampersand) 
de I* Applesoft deja frequemment mis 
a contribution dans Pom's. 

Ce programme permet aussi de 
mieux comprendre l'organisation des 
variables en Basic, grace a 1' option 
"P" en parriculier J*ai ainsi appris, 
en tapant "XC!A. " au clavier, nph 
seulement que cela engendre une 
SYNTAX ERROR, rnais aussi que 
Ton cree par cette "instruction" une 
variable reelie nornmee "XG". 

Utilisation de PRNVAR 

Ce programme affiche. selon les op- 
tions qu'on lui fournit ; les variables 
alphanumeriques, reelles et entieres. 
dimensionnees (tableaux) ou non, 
ainsi que leur adresse d'implantation 
et pour les tableaux, leurs dimen- 
sions. 

En outre, les fonctions pourront etre 
signages. 

La syntaxe de cette nouvelle 
commande ajoutee au Basic est fort 

• seul, affiche toutes les varia- 
bles, quelle que soil leur nature. 

• "&)" affiche tous les tableaux. 

• |'&R" (resp. '■&$•' ou 
"&#"), affiche les variables sim- 
ples reelles (resp. entieres, alpha- 
numeriques ou rcprcsentant une 
fonction). 

• "&(Kr (resp. "&(%r ou "&($)"), 
affiche les tableaux reels (resp. en- 
riers ou alphanumeriques). 

Remarque : la commande "&(#)" 
n'aurait aucun sens, car les tableaux 
de fonctions n'existent pas, et sera 
done ignoree. 



On peut aussi regrouper des 
commandes : 

"&(R%)$** aura pour effet ri'affirher 
les tableaux reels et entiers ainsi que 
les variables simples alphanumeri- 
ques. 

La place des caracteres n'a aucune 
importance : 

"&$(%Rr aura le meme effet que 
precedemrnent. 

Cepeiidanl, il esl bien Evident que : 
"&($)%R" naura pas le meme effet. 

Options pratiques 

II y a en outre deux options possi- 
bles : 

• ; la presence de ce caractere 
dans la commande precise que 
vous voulez voir apparaTtre les va- 
riables nulles (celles-ci etant igno- 
rees autrement). On peut toutefois 
inverser sa fonction. si on le de 
sire, en lemplagant aux lignes 221 
et 327 "BNf'par "BEQ". 

• P: la presence de ce caractere 
precise que vous voulez voir appa- 
raitrc 1' adresse d'implantation du 
contenu de chaque variable a cote 
du contenu de celle-d Cette 
adresse correspondra en fait a 
I'eitdroit exact ou est implants le 
contenu de la variable. On obtient 
]' adresse du nom d'une variable 
simple en soustrayant 2 h 1' adresse 
du contenu. Pour les tableaux, 
apres par cxcmple DIM A(10), il 
apparaura en premier 'TABLEAU 
A(ll) EN: HHLf HHLL corres- 
pondant a V adresse d'implantation 
du nom du tableau. Remarquons 
au passage que ce n'est pas A(10) 
mais A(ll) qui est affiche, cela 
provient du fait que DIM A(10) 
genere 11 elements (He a 10). 
Enfin, pour les variables represen- 
tant une fonction, viendra s'ajou- 
ter la ligne Basic ou celle-ci a ete 
definie. 

Encore une precision : pour des 
raisons de presentation, seuls les 
douze premiers caracteres des va- 
riables alphanumeriques seront af- 
fiches. 

Pour obtenir Tune etfou i'autre de 
ces deux options, il suffit d'introduite 
"0" et/ou "P" dans la commande. a 
n'importe quelle place. 

Remarque : tout autre caractere que 

■B" "%", "$", M (» ( y\ "O" 

ou "P" est considere comme une de- 
mande de tout afficher dans la catc 
gorie des variables prises en compte 
(simples et/ou dimensionnees). Ainsi, 



"&X" affiche toutes les variables sim- 
ples sans les tableaux. 
Enfin, on peut obtenir une pause 
dans Faffichage en appuyant sur 
n'importe quelle touche du clavier et 
le relancer en faisant de meme. On 
revienf au Basic par CTRL-C. 

Description generale 

Ce programme fait 880 octets et 
peut done etre place juste avant le 
DOS (HIM EM ; 9600). en $9290. 
Pour la sauvegarde sur disquette, 
LISA utilisant la page memoire 
$9500-9600, il faut operer ainsi : 

1 - Taper le programme et Tassem- 
bler (|); le code objet sera alors 
implante en $800. 

2 - Faire CTRL -D "BSAVE 
PRNVAR.A$800,L$365". 

3 - Booter une disquette sous Apple- 
soft (Basic). 

4 Faire "BLOAD PRNVAR, 
A$9290". 

5 - Faire enfin "BSAVE PRNVAR. 
A$9290.L$370". 

Sa mise en fonction se feia en^uile 
simplement par "BRUN PRNVAK". 
ceci ayant pour effet de charger le 
programme en rnemoire et de mettre 
a jour le vecteur & et les pointeurs 
HIMEM. FRETOP. ARYTAB et 
STREND. Les variables seront alois 
effacees. II est done preferable de 
faire "BRUN PRNVAR" avant Fexe- 
cution d'un programme Basic si Ton 
veut connaitre ie contenu des varia- 
bles que celui-ci aura creees. 

Passons au programme en lui-meme. 
II est constilue de trois parties princi- 
pals : 

1 - TRTAMP : traitement de la 
commande, e'est-a-dire I'analyse des 
caracteres suivont Tompersand et la 
determination des choix et options. 
On y utilise CHRGFT. sous-pro- 
gramme d'acquisition de caracteres. 

2 - TRAITM : traitement des vana- 
bles simples. On effectua un ba- 
layage de la zone des variables sim- 
ples ( LOMEM-* ARYTAB ) . a la 
recherche d r un certain type de varia- 
bles (entieres, reelles. alphanumeri- 
ques ou representant une fonction); 
lorsqu'on en a rrouve une. on I'affi- 
che en tenant compte des options 
eventuelles. Quand ce premier ba- 
layage est effectue, on passe a un se- 
cond type de variables (si I'utilisateur 
Fa demand^). N'oubiions pas qu'une 
variable simple omipe 2 octets pour 
son nom et 5 octets quel que soit 
son type. 

II faut aussi remarquer que les varia- 
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bles representant les fonctions (im- 
plantees uniquement dans la zone 
des variables simples) contiennent 
Fadresse d' implantation de la fonc- 
tion dans le programme ainsi que 
Fadresse poinlant sur le content] de 
la variable prise en compte dans la 
fonctlon (exemple : X pour DEF FN 
A{X)=..). 

3 - TABLEAU : traitement des ta- 
bleaux. II est similaire au traitement 
des variables simples, mis a part le 
fait que Ton affiche les dimensions 
de chaque element du tableau pris 
en compte (balayage de ARYTAB a 
STREND). 



L' organisation des variables est la 
suivante : 

- 2 octets pour le nom: 

2 pour la longueur du tableau; 

- 1 pour le nombre de dimensions 
(inferieur a 89): 

- 2 pour chaque dimension. 
PlUS : 

- 5 octets par element pour les 
reels; 

- 2 pour les en tiers; 

- 3 pour les alphanumeriques (1 
pour la longueur de la chaine et 2 
pour Fadresse d'implantation). 

(Pour plus de details, voir le manuel 
de reference de FApple II.) 



Viennent enfin les sous-programmes . 
quatre principaux. dont les REMs du 
listing expliquent la fonction. 

Voila. je pense avoir tout dit. Vous 
etes matntenant en possession d'une 
commande supplementaire qui. inse- 
rec dans le programme aux points 
"strategiques" et associee a la fonc- 
tion TRACE, constitue une arme tres 
cfficacc pour la chasse aux "bugs". 

La disquette de Pom's comporte un 
second programme de demonstra- 
tion, appele DFM02 



LISA 2.5 



i 
2 



s 
6 

7 
8 
«. 
10 
11 

\i 

13 
1-4 
15 
16 
17 
18 
\* 
2<) 
21 
22 
23 
24 
25 
26 
27 

2a 

29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 



NlS 

i'TL "AKKlCHAUfc D* VAklAbl.ES HAW L'G" 



PRNVAR 
P.r Laurent ESNAULT 
APPLE II 

04/1981 



- Definition aes sar«am - 



11 EN PAGE ZERO 



ADVAR 

IKPLDIM 

LOHEM 

HTHEM 

HTAB 

VO 

VI 

FRFTOP 
STRFND 
ARYTAB 
CHRf.ET 



EPZ SFB 
EP2 SF9 
EPZ Sfc9 
FPZ S7H 
EPZ S>4 
FPZ SHK 
FPZ BCF 

fpz ahv 

EPZ S6D 
FPZ St^K 
EPZ SH 1 



:Point*ur qenerai 



2) AhSM.UFS : 



VECTEUR 
KBD 

KEYSTR 

ADDIM 

NOVFH 

COUT 

STRGUT 

PRNFAC 

CROUT 

PRBL2 

PRNTAX 

LINPTR 

GIVAYF 

BELL 



EUU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



aaFs 
scooo 

sCOlO 

S300 

SEAF9 

SFDED 

SDB3A 

SED2E 

SFD8E 

3F94A 

SF941 

SED24 

SE2F2 

SFF3A 



;<v,a) -->KAC 

:A-ffiche CHRS(A) 
;A**irn* la chains 
-.A-ffirh* FaC 
rRetmir rhariot 

•A-f*irrh» A et X 
;A-ffirhe X-256*A 



(A. V) 



ORG S9290 
OBJ 9800 



Stocke le vecteur & et 
Lea nouveaux pointeura. 
< =CLEAR> 



LDA *S4C 
STA VECTEUR 
LDA #TRTAMPO 
LDY /TRTAMPO 
STA VECTEUR-1 
STY VECTEUR+2 
STA HI MEM 



70 

H 

73 
74 

75 

76 

s 

79 

SO ; 

si ; 

82 ; 

S3 : 

84 ; 

85 ; 
66 ; 

87 ; 

88 TRTAMPO 
89 

90 
91 

92 TRTAMP 
93 
94 
93 
96 I 
97 
9« 
99 
10O 

101 SU1TE1 

102 

103 

104 

105 

106 

107 ; 

108 SUITE 3 
109 

HO ; 

111 ; 

112 ; 

113 1 

114 : 

US ; 

116 ; 

117 ; 

118 COHPAft 
119 

120 
121 
122 

123 PASO 

124 

12i> 

126 

127 ; 

126 PA3P 

129 

130 

131 

132 

133 

134 

135 

136. 

137 

138 

139 

140 ; 

141 FINBCL 
142 



STY 
STA 
STY 
LI>A 
LDY 
STA 
STY 
STA 
STY 
RTS 



HlHhrt+l 

t-KfcTUP 

hKfcTUP*! 

LOHEH 

LOHErf*! 

ARYTAB 

ARYTAB*! 

STREND 

STREND •! 



* • 

• I RAlTEHtN'i Dt L'& 



LDY #0 

STY AMPERS 

STY OPMUL 

STY OPPOIN 
TAX 

BE-0 FIN 

CPX »' 

BEG FIW 

CPX #* * ' 

BNE SUITE1 

LDY #1 

BNE NEWBCL 

CPX ff ' * ' 



:sx e'est 
:Ou -W alors 
•Fin dft la 
;Co»mande 



BNE COMPAH 
CPY Wl 
BEQ SUITE3 
LDA ffHJl 11O0O0 
BNE RET1 

LDY WO 
BEQ NEWBCL 



On conDore X avec le 
Ascua de 'O'et 'P* loptionsj- 



LDA 
CPX 
BNE 
STA 
BEQ 
CPX 
BNE 
STA 
BEG 



Mi 

*-Q- 

PASO 

OPrtUL 

NEWBCL 

«' p" 

PA3P 

OPPOIN 

NEWBCL 



CPX *TR- 
BEQ FINBCL 
A3L 

CPX U's- 
BEQ KINbCL 
ASL 

CPX *'«* 
BEQ FINBCL 
AL.L 

CPX ft'*' 
BEQ FINBCL 
LDA ffNOOOOllli 

CI'Y #1 
BNE RET1 
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34^ 
144 
14S 
14b 
147 
148 
149 
ISO 
151 
152 
iS3 
154 
155 
156 
157 

15a 
i An 

IAS 
1M 
165 
16b 
lb? 
i&e 
16* 
17U 
171 
172 
173 
174 
3 75 
176 
177 
178 
179 
180 
181 
iSi 
383 
184 
185 
186 
ifi7 
186 
189 
ISO 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
70« 
209 
2HJ 
21 1 
21 2 
7\'A 
214 
21S 
21b 
217 
71ft 
219 

220 
221 
222 
223 
224 
22b 
22fc 
227 
228 
229 

230 
231 
232 
233 
234 
235 
23b 
237 
238 
239 
240 



RETl 



NtWfaOL 



FIN 



NmM 

TVPF 

Mill 

NBRDIH 
CHUi A 
LENVAft 
Ul-fU 1 ti 
OPNUL 
AM.'fc.tO 
V2 
VJ 

; 

WfcSSACt 



MESSACEO 
MESSACE1 
MESSACE2 
TYPEO 



TRAi'fM 



dO 



VI- ST 



AS>L 






XT 1 


T a mi 4-" a 1 1 




H 4 


ASL 




:Un 


> si -y 




*l T a 


L'MUI A 


ASL 




: Hodif io 


213 






ASL 




! A*d©r© 


2H4 


AOTftfc^ 




CHOI X 


ORA 


AMPERS 


■En 






B lie 


CONT 


STA 


AMPERS 


; Oonsoauence 


246 




KTS 








247 


CONT 


LSR 


A PPFRS 


JSk 


CHRGET 




2-46 




b-CC 


A UTRE2 


JMP 


TRTAMP 














AMPEWS 
TRAITH 




250 




LDA 


ARYTAfe 


LDA 
BNe 




251 
252 




STA 
LDA 


ADVAfi 
ARYTAb* 1 


LDA 


•5(11311313 




253 




O 1 n 


a TiW a IV + \ 
n w* ntx t 


STA 


AMPERS 




254 








JMP 


TRA2TM 




25b GOl 


L UA 


a 1 1 1 1 a _ . i 
A UvAK* I 








256 




CMP 


57REND*- i 








257 




BCC 


TEST .f 








256 




LDA 


A DVAR 


TiFS 


2 




25"* 




CMP 


3 TKEhD 


DPS 


1 




260 




bes 


AUTRE2 


HFX 


00 




261 


- 






DFS 


1 




262 


TESV* 


j 3ft 


..'».-' j . 


Urd 


1 




26 3 




CPX 


CHO I X 


DFS 






2^4 






62 


Ut b 


i 




265 




JMP 


SU ITE3 


DFS 


| 


* < >(> hi i ml inn ' f 1 * 


26o 








«?s 


i 




267 


D£ 


i-DY 


#1 


DFS 


A 




26 b 




l Da 


i ADVA Ft ; Y 


!>£ i 


1 




2 GO 
270 




A —IL. 

-» i n 


r« onu i n 


HEX 


Mil 




271 


: 






ASC 


"ToDleau " 




272 




LDA 


#5 


HEX 


0.0 




273 




J 5R 


PCI IN A 


ASC 


" en " 




274 


; 






HEX 


00 




27b 




LDA 


aDvaa 


ASC 


" en iiqne '" 




276 




STA 


I Hp] pit H 


HEX 






277 




UL»A 


ADVAK-* 


ASC 


"ioncnon" 




270 




3TA 


INPLDIM *1 


HEX 






270 


: 






ASC 






2H0 
281 




lDa 
b EQ 


iitiu. I 1 M 

NONi'lP 
n UK ur 








282 

2yj 










: 


UUA 














"IlLii^rtijL. 


• 






28-1 




LDV 


/ihessage 


• TfcAITEMENT DES 


• 


2&5 




IS It 


ST 1* Ml 11' 


VARIABLES SLHHUd - 


286 




LDA 


#«UM 






* 


287 




LDY 

TCD 


/ noh 








288 
28S* 






STROUT 
i(i 




»4 




290 




LDY 


NBRDIM 


STA 


CH01X 




291 
292 


B3 


DEY 
INX 




Dec 


CHu.lX 


;0n Ddca« 


293 




LDA 


v ^MPLDIM / , Y 


BMl 


TABLEAU 


:A un autro 


294 




STA 


ADDIM, X 


LSR 


AMPERS 


jTypo dc 


29b 




DEY 




BCC 


AUTRE 


; Variable 


296 




DEX 




LDA 






297 




LDA 


t IMPLDZM> , Y 


LOHEH 


•On commence 


298 




STA ADDIM , X 
IMX 


STA 


ADUAR 


:L(f balayooo 


29^ 




LL»A 


Lunan • i 


;A partxr 


300 




INX 




STA 


ADUAR-l 


:De LOMEM 


301 
302 




DEY 
6PL 




CMP 


ARYTAB-1 


j On venue 


303 




JSR 


AFFDIrt 


BCC 


TEST 


j Que I *pn 


304 




LDA 


B«E33A0EU 


i.HA 


AllVAK 


:N'ast dbs eorm 


30G 




LDY 


/MESSAGEO 


CMP 


ARYTAB 


;Do la lone dec 


306 




JSR 


3TR0UT 


rtt^S 


AUTRE 


; Var i ioi«s 


30-7 




JSR 


AFPOINO 



Bl 



SUITE 



iSk INPUT 
LDA -2 
-1SR POIN.A 
CPX CHOIX 

kNF> S1IJTE 

I.OY CHO IX 
REQ Bl 
.ISR IKAKNUL 
LDX OPNUI. 
HUE Bl 
TAX 

BEO SUITE 

LDA tfNOH 

LDY /NOH 

JSk STROIIT 

JSR PRNVAR 

LDA -S 
JSR POIN.A 



;Un roairde ei 
;Catt* variable 

: Con viant 



:Si ionction, 
;0n passe. 
:On tame 
:S« valour 

; Pou r 

.•L'option 'C 



; On envoie 

; Son no* 

;A 1 'aiiichaqa 

rAvec son oontenu 

•On oasse 

;A la variable 

:3ua vant f 



TKAlTtME^T DtS 
VARIABLES DIMENSION NEES 



306 ; 

30^ NONOP 

310 

311 6i 

312 

313 

314 ; 

31 b 

316 

317 ; 

316 

310 

320 

321 

322 

323 WON 

324 ; 
32b BCLc 
326 

327 
326 
32^» 

330 : 

3^1 AFF 

332 

333 

334 

33b 

336 ; 

337 bS 
336 



LDX NBtfDln 
LDA #0 
utx 

STA ADDIM , X 
bWE B-4 

LDA NbKDIM 
J3R POIN.A 

LDX CM01X 
INX 

CPX #4 

ONE NON 
INX 

STX LENVAR 

JSh 1KAFNUL 
LDX OPNUL 
BNt nt'f 

TAX 

Bttl DD 

LUA i*NOH 

LDY /NOH 

JSf* STiiOUT 

JSR AFFD1H 

JSR PftNVAW 

LDA l.LNVAt-f 
JSR POIN.A 



;Ketour au BAbic 



;Un commence 
:Le oalayace 
:ft oarcir 
:De ARYlAB 

; Un vet i i i e 
;uue i ' on 
;N'esL Dae 
;Sort.i oe 
:La zone aes 
:Tabl&aux . 

SUli teste le 
:TaDleaux points 
:i'n ne convient 
:Pas;SUITE2 

:un scocne 
;Le fiDre ae 
;L-uneiiaioiiB 
;MulL. pat 2 



; L * oUi wsse 

:U* iBuiautation 

;L>«s dimensions 



IL'ootion 'P' 



: Afficne 



;L.e3 

:Dlmen»iona 



; Mdxiin una . . . 
;...EL le 
;Hoiiil«sui 
; Pointful- 
: Inuiai . 



; Kemjae 
;A zero 
:Dea 

;Compt#fuia 
;D-e dmenaion 

: On oo i n t.e 

;&ut la voiioble 

;On determine 
;Le nbre 
;D'oeteta 
;Ou'«l le 
;C»ccupe et on 
;Lo atocke 



;un atiicoe 
; : 

;i-e nom 
;Lea DIMS 

:La variable 

;On oointe aur 

;Lo prochaine 
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31 



ADD 



339 
340 
341 
34 2 
34 3 

34 4 
345 
346 
347 
346 
349 
350 
351 

35 2 
353 
354 
355 
356 
357 

35-a 

359 
360 
361 
362 
363 
364 
365 
366 
367 

36 8 
369 
370 
371 
372 SU1TE2 
373 

374 
375 
376 
377 
378 
379 

3a o 

361 
3ft2 

38-3 ; 

364 : 

385 : 

366 : 

367 • 

368 ; 

369 : 
390 : 
39 ) : 

392 : 

393 I 

394 ; 

395 ; 
596 • 
397 
398 
399 
4O0 
401 

402 EMTIER 

403 

404 

4G5 

406 

407 

4 OA 

409 

41 O CMA INF 
41 1 
41 ? 
413 
414 
41S 

416 
417 
416 
419 
420 : 
491 ; 

422 : 

423 : 

424 : 

425 : 

426 ; 

427 PRNVAR 
426 

429 : 

430 

431 

432 

433 

434 : 

435 

436 



1MPIIT 



1 ftV nil 








DEY 




WML I 




INK 






, net. 




i A 1 uu i 


ADC #1 




•J i a nuuin , a 


: ComuLuui to 






i da Anni m y 


• Ft 


ADC #0 




'"LTA AlinlM V 




CMP (TMPIDTH) V 




one D^LC 




INX 




INY 




LDA addim.x 




uiii tj.ni luih' . i 


.... un 


one d ^ i_i 11 


, -o.iii nua 


1 i)A WO 


; Si * a 


HFX 

L>C A 


• T«h 1 ••II 




. r* esc DOB 


TNV 


■ T _ -■ r ■ •■ ■ 


STA ADDiM.X 




INX 




i.t-v 




fjpV 
l<c i 




I)E V 


! - • • 3 1 OU 1 


Dpi ADD 


;Qn poGoo 


IHD rini 


'Au cuivont 


1 nv #^ 

L.mJ T 


* Un oointc 




; our 




. L.C IQDIOaUK 


ADC ADVAR 




TAX 


: lit. . . 


IMY 




LDA ( ADVAR), Y 




ADC ADVAR- 1 




STA ADVAR- i 


; - - - On 


STX ADVAR 


iRetourne 


J«P GOl 


:tn 601 



......... 



• DEBUT DES SOUS-PROGRANHfcS • 



- INPUT deterime la nature- de - 

- La variable pointee at range - 

son now - 



LDX *i 


r ler octet 


LDY *0 


! Super leur 


LDA ( ADVAR} , Y 


;A S80 


BHI ENTIER 


;Entier ou fonction 


2WV 




STA NOM 




I NY 


;?eap ncr.et 


LDA (ADVAR), Y 


; Snppr- i pur 


BHI CHAXME 


; a Sftrt - - > 


TNX 


;Ch«ir»p nn onf iot 


OPX »2 




BNE CMA INF 




I.1IX MO 


;>-0NCTiON 


AND MX0\ 111111 




HN'r nx 




LDA MSAO 




STA NOM-I 


; St nc*™» 


LDA TYPF0,X 


•Lp no,e 


STA TVPF 


;Kt la typp. 


RTS 


;Puis retour 



:Reaultat. dana X: 
:l:Entier .2:Chaine .3:Reei 



0:FoncLion 



PRNVAR atfirhn U vnnnhln 

Pointee At ) en polntenrn 
Si option *P' , puis 
Fait un tBBt-elaviar . 



I_DA 

JSR C0UT 

LDA CHQIX 
BEQ FONCTIU 
(JMP *2 
&NE NONALPH 

LDY #1 

LDA (ADVAR) . V 



: On ailicne 
:La variable 



43/ 
4J6 
439 
440 
441 
442 

443 Bo 

444 

445 

446 

447 

446 

449 

450 PRNFIN 

451 

452 

453 ; 

454 rONCTIO 
455 

45fa 
457 
450 
459 
460 
461 
462 
463 
464 
465 
466 
467 
466 
469 
470 

471 PROCHE 

472 

473 

474 

475 

476 

477 

4 76 

479 VERIF 

4SO 

481 

4S2 TR0UVE 

463 

464 

480 

48& 

487 

488 

489 

490 

491 ; 

492 NONALPH 
493 

494 ; 

495 

496 

407 

498 

499 

S0O 

501 

502 

503 

504 ; 

505 REEL 
50C 

507 

506 AFTAC 

509 ; 

510 AFPOINT 
511 

512 
S13 
514 
515 
51b 

517 AFPOINI 
518 

519 ; 

520 AFPOINO 
521 

522 
523 
524 

525 ; 

526 N0NP01N 
527 

528 
529 
530 
531 

532 SI 

533 

534 



5IA VO 
INY 

LDA ( ADVAK) , ■ 

5TA VI 

LDY #0 

LDA n 

JSR COUT 

CPY V3 

BEQ PRNFIN 

LDA tV0).Y 

ORa »»ao 

INY 

ONE bo 

LDA « 

JSR COUT 

JHP AFPOINT 



; A J pna . s i 
;Cela en 
;Ebx. une 



LDA 
LDY 
J3K 
LDA 
bew 
LDY 
LDA 
STA 
TAX 
INY 
LDA 
3TA 
LDA 
LDY 
J3R 
DEC 
LDY 
DEY 
LDA 
BNE 
DEY 
DEY 
DEY 
DEY 
DEY 
INY 
LDA 
BNE 
INY 
INY 
INY 
LDA 
TAX 
INY 
LDA 
JSR 
JHP 



/MES5AG£^ 

SfROUt 

OPPOIN 

NONP01N 

SO 

(ADVAK) * Y 
VO 



I AD VArt t ,Y 
VI 

HHE3SA&E1 

/HESSAGEl 

3TR0UT 
Vi 

#20 j 



( VO> , Y 
PROCriE 



lVO>,Y 
VERIF 



K VO ) , Y 



< VO) , Y 
LIMPTR 
AFPOINT 



CMP *3 
BEO REEL 

LDV #0 

LDA <ADVAR>,Y 

TAX 

INY 

LDA < ADVAR >.Y 

TAY 

TXrt 

JSR GIVAYF 
JMP AFFAC 

LDY ADVAR- 1 
LDA ADVAR 
JSR MOVFM 
JSR PRMFAC 

LDA OPPOIN 
DEQ N0MP0IM 
LDA #10 
SEC 

SBC HTAB 
BCS AFPOINI 
LDA #2 
TAX 

JSR PRBL2 

LDA #"S" 

JSR COUT 

LDX ADVAR 

LDA ADVAR- 1 

JSR PRNTAX 

JSR CRQUT 
LDA KBD 
BPL NOPAUSE 
LDX KEYSTR 
CMP #=83 
BEG RETBASIC 
LDA KBD 
BPL SI 
LDX KEYSTR 



3: opLi on ' p ' . 
un 

Ch«rch« 

La lAtfiii- 

BASIC 

Ou 

E*t 

iBpiante 
La 

Fonct ion . 



;Une 
; Foaa 
;Trouvee , 
;0n I'aff iche 

.-lit 

;0n envoi e 

; A i'oli lchoge 

:Des 

,'Pointcura. 



:L'enLier . 



;0n en vol e 
;Lw i vv± 
; Da jits FAC «L 
;0n 1'afficliw 

;0n allicha 
:Les point eurs 
;Si option * P ' 
;En rettpcctanC. 
;La *i8e 
;En page 



!0n oifootue 

; Lo toot-clavier 

rSi 

;C'«ot CTL-C 

;0n retourne 

;Au BASIC par BELL 

;Sirion on fait 

;Une pouoe 
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535 




CMP 




53ft 




BED 


RETBASIC 




RTS 


538 


RETBAS7C P!.A 




539 




Pl.A 




540 




JMP RFU 


541 








542 
543 














544 




- AFFDIM «Mfirh» lee ■djjRMisiona- 


545 






Stnrk»»A on SHOO... 


546 








547 
548 










LDY 


#0 


549 




LDA 


n" ( " 


550 AGAIN 


J5R 


COUT 


551 




LDA 


ADD I (1 . Y 


552 




1NY 




553 




LDX 


ADDIrt.Y 


554 




STY 


V2 


555 




JSR 


LINPTK 


556 




LDA 


" 


557 




LDY 


V2 


558 




1NY 




559 




CPY 


NBRDIM 


560 




BNE 


AGAIN 


561 




LDA 


#") 


562 




JHP 


COUT 


563 








564 
565 














566 




- Additionne i ' accimulateur 


567 






Avec ADVAR . 


566 








569 
570 














571 t 


>G1N.A 


CLC 




572 




ADC 


ADVAK 


573 




STA 


ADVAR 



57-4 

S7t> 
576 
577 

57a 

579 

seo 

582 
582 
583 
584 

sss 

58G 
5S7 
560 
50O 



LDA ADVAR* i 

ADC no 

STA ADVAR • 1 

RT3 



IFAFNUL lbbx ia vaieur 
D*r la variable pomtee 
En vu« jy 1 'option 'O' 
El aLucKe la longueur 
Dm la Lrlioine ai ceia en 
EaL une . 



590 


1FAFNUL 


LDY 




591 




LDA 


(ADVAR) , Y 


592 




IKY 




593 




CPY 


CHOIX 


S9-J 




OEU. 


EN 1 1 tiRi 


595 




IN Y 


596 




CPY 


CHOIX 


597 




ONE 


RETO 


596 




LDX 


GPFGIN 


599 




oco 


RET2 


60O 




CHt- 


• 1J 


601 




DCC 


RET2 


60^ 




LDA 


#12 


603 


RET2 


STA 


VJ 


604 




kT.s 




60S 


ENTIERl 


CLC 




606 




ADC 


IADVAR3 . Y 


607 




BCC 


RETO 


SOB 




TYA 




609 


RETO 


RTS 




610 


: 






611 




END 





3i ootion 'P* 

On limte ia 
Lonqueur ae la 
Cnaine pour 
L ' aiuuioqe 



Programme PRNVAR 
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05 
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EO 


52 
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A9 


9380 - 


02 


20 


CE 


93 


EC 


2D 


93 


DO 


9368- 


IA 


AC 


2D 


93 


FO 


OB 


20 


DA 
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DO 
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FO 


9396- 


OA 
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93 


20 


3A 


DB 
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20 


DS 


94 


AO 


05 


20 


CE 
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93A8- 


4C 


72 


93 


A9 


04 


8D 


2D 


93 


93B0- 


CE 


2D 


93 


DO 


02 


60 


4E 


31 


93B8- 


93 


90 


F5 


A5 


SB 


85 


FB 


AS 
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&C 


85 


FC 


A5 


FC 


C5 


bE 


90 


93C8- 


06 


A5 


FB 


CJ 


6D 


BO 


El 


20 


9300- 


BO 


y4 


tc 
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y3 


KO 


03 


4C 


93D8- 


9C 


94 


AO 


04 


Bl 


FB 


OA 


8D 


93E0- 


2C 


93 


A9 


05 


20 


CE 


95 


AS 


93ES- 


FB 


85 


F9 


A5 


FC 


85 


FA 


AD 


93F0- 


2F 


93 


FO 


33 


A9 


34 


AO 


93 


93FS- 


20 


3A 


DB 


A9 


28 


AO 


93 


20 


94 00- 


3A 


DB 


A2 


OO 


AC 


2C 


93 


66 


9408- 


ES 


Bl 


F9 


9D 


00 


03 


88 


CA 


9410- 


Bl 


F9 


9D 


OO 


03 


E8 


E8 


86 


9418- 


10 


EE 


20 


AA 


95 


A9 


3E 


AO 


94 20- 


93 


20 


3A 


DB 


20 


7D 


95 


AE 


9428- 


2C 


99 


A9 


00 


CA 


9D 


00 


03 


94 30 


DO 


FA 
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93 


20 
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95 
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AE 


2D 
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E8 
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01 
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20 


DA 
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AE 


9448- 


30 


93 


DO 


03 


AA 
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OO 
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Dl 
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C4 
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E8 
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BD 


OO 
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Dl 


F9 


DO 
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E8 
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03 


E8 
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88 


86 


10 


9498- 


DO 


4?~C3 


93 


AO 


0"2" 


~fh 


Bl 


94A0- 


FB 


65 


FB 


AA 


C8 


Bl 


FB 


65 
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01 


94B8- 
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8D 


28 


93 


C8 


Bl 


FB 
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07 


E8 


EO 


02 


DO 
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OO 


94C8 


29 


7F 


DO 


02 


A9 


AO 


8D 


29 
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93 


BD 


57 


93 


8D 


2A 


93 


bO 



94D8- 


A9 


BD 


20 


ED 


FD 


AD 


2D 


93 
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FO 


2A 


C9 


02 


DO 


67 


AO 
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FB 
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C8 


Bl 


FB 
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CF 


AO 


00 
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A2 


20 


ED 


FD 
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CC 


33 


93 


FO 


07 


Bl 
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09 


9500- 
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ED 
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6B 
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A9 


4E 


AO 


93 
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2F 


93 


FO 


71 
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Bl 
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CE 
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C8 
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FB 


85 


CF 


A9 


43 


AO 


93 
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20 


3A 
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DO 
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88 


88 
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9538- 


88 


C8 


Bl 


CE 


DO 


FB 


C6 


C8 
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Bl 


CE 


AA 


C8 


Bl 


CE 


20 


9548- 


24 


ED 


4C 


6B 


95 


C9 


03 


FO 


9550- 


10 


AO 


00 


Bl 


FB 


AA 


C8 


Bl 


9558 


FB 


A8 


8A 
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F2 


E2 


4C 


68 


9560- 


95 


A4 


FC 


AS 


FB 


20 


K9 


EA 
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FO 
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FC 


20 


41 
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AD 
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C9 
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FO 
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AE 


10 


CO 
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01 


60 


66 


68 


4C 


95A8- 


3A FF AO 


00 


A9 


A8 20 


ED 


95B0- 


FD 


B9 


00 


03 


ca 


BE 00 


03 


95B8- 


8C 32 93 


20 


?4 


FD 


A9 


AC 


95C0- 


AC 32 


93 


C8 


CC 


2C 


93 


DO 


95C8- 


E5 


A9 


A9 


4C 


ED 


FD 


18 


65 


95D0- 


KB 


85 


FB 


A5 


FC 


69 


00 


85 


95D8- 


FC 


60 


AO 


00 


Bl 


FB C8 


CC 


95E0- 


2D 


93 


FO 


15 


C& 


CC 


2D 


93 


95E6- 


DO 


15 


AE 


2F 


93 


FO 


06 


C9 


95F0- 


OD 


90 


02 


A9 


OC 


8D 


33 


93 


95F8- 


60 


18 


71 


FB 


90 


01 


98 


60 



Programme DEMO 1 



5 PRINT CHRS <4>"BRUN PRNVAR(BIN) " 
10 TEXT : HOME : PRINT " TEST DE L 

A FFlNCTTDN PRNVAR" 



15 LIST 15,60 

20 DIM ASM,2,3):VS = " , " : DEF FN B(X) 

= 1 / X 
30 FOR I = TO 1 
40 FOR J = TO 2 
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50 FOR K = TO 3 






A 

n 


/ 1 1 A\ * rt" 

St 1 , I ,U? - 1 # x , U 


*--rt <~i 1 <~i 
SO'Jl 8 


60 A$Cl,J,K> - 5TRS 






A 




CTrtQ 1 D 
-PU ji D 


> + VS + STRS 


(K> 




A 


i o ai a M i o A" 


=>tJ=tX fc. 


70 NEXT K„J,I 






A 


rt 1 \ — i»rt rt ;ir 


QrtQrt • 


SO GET RS: & OP 






A 


S ( 1 . . 1 ) ="1 . 1" 










A 

M 


Cfr" 1 ! 1 1 \-"A 1 1" 
=»<.V.± F X,J- U,i,l 


suy^ / 








ft. 






Execution de DEMO 1 




A 












A 






A =0 


S0SE3 




A 






I =2 


30SEA 




A 


e / 1 rt f>\ — "'-I a 


i — 1 '"i "~i C_ 


J -3 


sosfi 




A 






X = 4 


S0SF6 




ft 

«* 


S M 1 ?)="1 1 9" 






S08D5 




A 

n 


fi<r> ^ :m= m a c> ^>»* 




R S = " " 


S08KF 




A 




C-rtQ-i o 


R =fonction en Uqne 


20 


SO80C 


A 

n 


n m a a 

3 v i_i , w -£» ' *" f » -JS 








A 
ft 


e / 1 rt -it -"i rt "j * • 


f— (~\ ,i o 


Tableau A S(2 f 3,4> en 


SO 909 






£ ( O _ 1 _ ^ ) =" 1 "3" 

V V- 1 t 1 I v" v « X a «J 




A S(0,0,0)="0,0,0" 




SO90F 


A 




S094E 


A SU,0,0;="1,0,0" 




S0912 


A 






A S(0.1„0>= M O„1.0" 




SC915 


A 


S<1.2,3>= M 1 ,2,3" 


S09S4 



Documentation de tables de shapes 

trick Ringot 



ter des tables 
sant : 



et de documen- 
de formes, en preci- 



- La longueui de la table. 

- Le nombre de formes. 

- Pour chaque forme. Fadressc rela- 
tive par rappoil au debul de la table. 

II permet egalcmGnt dc representer 
les formes a I'ecran ou sur impri- 
mante. 



Principe du programme 

• La table est charqee en $4000 = 
16384, soit en page HGR2. 

• Le premier octet est N, nombre de 
formes composant la table. 

• Pour chaque forme. on lit 
1'adresse relative (groupe de deux 
octets consecutifs). 

• On verifie que Poctet precedant 
cette adresse est bien nul (sinon, 
on n'a pas affaire a une table de 
formes). 

• Pour determiner la longueur de la 
table, on parcourt les octets de la 
derniere forme, jusqu'a I'obtention 
d'un zero terminant a la fois cette 
forme et la table. 



Variables 

A = 16384 (adresse de chargernent) 
ADRESSE(i): tableau des adresses 

relatives des formes 
AH.AL: octets fort et faible de 

I'adresse relative courantP 



D : adresse de fin de table 

ER : code de 1'erreur eventuelle 

!R < ^,IR% : indicateurs d'usage de 

sous-programmes d'edition 
LF,L : indices de boucle 
LL : longueur de la table de formes 
LSB%.MSB% : octets faible/fort de la 

longueur LL 
MESSAGF$ ■ message renseignant 

sur le derouiement du programme 
MX, MY : marges de la paqe haute 

resolution 
N ; nombre de formes 
N$ : nom de la table 
0%(i), 0$(i). i variant de 1 a 4. 

Quartets composant LL. en deci- 
mal, en hexa. 
PX.PY - pas horizontal, vertical dans 

la page HCR 
Q.P: nombre de lignes, de colonnes 



dans la page HGR 
X.Y : coordonnees de la forme cou- 

rante dans la page HGR 
ZE : ocLet normalemenl nul si le fi- 

chier Ni est bien une table 

Remarque : le sous-programme 
d'impression est ecrit pour l'impri- 
mante SEIKOSHA GP-lOOa. connec- 
tee sur le slot 1. La signification des 
codes de controle utilises est la sui- 
vante ; 

CHR$(20) <CTRL-T> ; Empeche 

F^cho a 1'^cran 
CHR$(14) <CTRI -N> : Fcritiire 

double largeur 
CHR$(15) <CTRL-0> : Retablit la 

simple largeur 
CHR$(17) <CTRL-Q> : Effectue la 

copie de la page haute resolution 




: 
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100 
110 
120 
130 
140 
150 
160 
170 
ISO 
190 
200 
210 
220 
230 
240 



250 
260 

270 

280 
290 
300 

310 
320 

330 

340 



350 



360 

370 
380 

390 
400 
410 

420 



430 
440 
450 
460 



470 
480 

490 
500 
510 
520 



530 
540 
550 



END 



REM 

REM DOCUMENT AT TOM 
REM DES TABLES DE 
REM FORMES 

REM 

REM DOC/SHAPE 
REM -1- INITIALISATION 
LOMEM : 24576: REM APRESHGR2 
ONRRR GOTO 1150 
TEXT : HOME 

PRINT "NOW DE LA TABLE...." 
INPUT "";NS: IF NS = '■" THEN 
GOTO 1010 
REM -2- MESSAGE 

VTAB 20: INVERSE : PRINT MESSAGES : FOR 
I = 1 TO 1000: NORMAL : NEXT : VTAB 
20: CALL - 868: RETURN 
REM -3- VERIFICATION TTABLE 
A = 4 * 16 " 3: POKE 232,0: POKE 233,64 

: REM ADRESSE TABLE 
MESSAGES = "CHARGEMENT DE " * NS: GUSUB 
240 

PRINT CHRS <4VBL0AD"NS:",A"A 
N - PEEK (A): REM NOMBRE DE FORMES 
DIM ADRESSE (N): REM TABLEAU DES ADRESS 

ES RELATIVES 
FOR 1=1 TO N 
AL = PEEK (A * 2 • 1 > : REM ADRESSE REL 

ATT VE OCTET FAIBLE 
AH = PEEK (A + 2 - I + 
RELATIVE OCTET FORT 
ADRESSE ( I ) = AH • 256 ♦ 



1 > : REM ADRESSE 



AL: IF A < 
16 THEN 1210: REM 



ADRE 
ADRE 



SSE<I) > 2 
SSE RELATIVE 
ZERO = 0: IF I > 1 THEN ZERO = PEEK <A 

* ADRESSE 1 1 5 - 1): REM DERNIER OCT 
ET DE LA FORME PRECEDENTE 

IF ZERO < > THEN GOTO 1210: REM CE 

N'FST PAS UNE TABLE DE FORMES I 
NEXT I 

MESSAGES = NS ♦ " EST UNE TABLE" ; bUSUB 
240 
RETURN 

REM -4- LONGUEUR DE LA TABLE 
D = A + ADRESSE(N): REM ADRESSE DERNIER 
E FORME 

IF PEEK <D) < > THEN D = D * 1 : GO 
TO 420: REM LA TABLE SE TERM INE PAR 
UN 7FR0 

LL = D - A * 1 : REM LGUEUR DECI MALE 

REM * CONVERSION HEXA * 
MSB* = LL / 256:LSBX = LL - 256 » MSB* 
0*<1> = MSB* / 16:OX(2) - MSB* -16-0 
X<1);0X(3) = LS&X / 16;0X(4) ■ LSBX 
- 16 • OX (3); REM QUARTETS COMPOSANT 
L ' ADRESSE 

FOR I - 1 TO 4:0*<I) - STRS ( OX < I > ) 
IF OX(I) > 9 THEN OS CI) = CHRS <OX<I) 

♦ 55) 
NEXT 
RETURN 

REM -5- 

IF IRX - 

- 16302,0.* 

10 

HGR : POKE 
IRX - 1 

HC0L0R= 3: SCALE- l: R0T= 

= INT < SOR <N)>: REM NB.LIGNES 

PY = INT (192 J 0>: REM INTERVALLE EN 
Y 

MY = (192 - (Q - 1) 



REPRESENTATION 

1 THEN POKE - 16297,0: POKE 
POKE - 16304,0; GOTO 7 

- 16302,0 



570 

580 

E EN Y 
590 P = INT (N 



• PY) / 2: REM MARG 



/ 0) : IF N > P • Q THEN P = 



P * 1 

600 PX = INT (280 / P> 

610 MX = (2d0 - (P - 1) * PX) / 2 

620 FOR L = 1 TO Q 

630 FOR F = 1 TO P 

640 I = F * (L - 1) - P 

b50 IF I > N THEN 710 

660 Y=MY*(L-1)*PY: REM COTE 

670 X-MX-(F-l)- PX: REM ABSCISSE 

660 DRAW I AT X.Y 

690 NEXT F 

700 NEXT L 

710 GET AS: TEXT 

720 RETURN 

730 RFM -A- EDITION TMPR1MANTF 
740 REM SEIKOSHA GP100 SLOT 1 
7S0 PRINT CHKS (13) CHKS <4)"PR#1" 
760 PRINT CHRS (20) 

770 PRINT CHRS (14) TAfa ( 20 - LEN (NS> / 

2)NS CHRS CIS)! PRINT 
780 GOSUB 860 
790 PRINT 

800 POKE - 12317,0 
810 PRINT CHRS (17) 
S20 PRINT CHRS (4>"PR#D" 
830 RETURN 

840 REM -7- TABLEAU D'ADKhSSES 
A50 TFXT : HOKE : TRX = 1 
8GO PRINT "LONGUEUR , OCTETS" 
«70 PRINT "DECIMALE -> "LL 

880 PRINT "HEXADECIMALE -> S"0S(1)0S(2) 
OS (3) 0S< 4) 
PRINT ; PRINT "NOMBRE DE FORMES "N 
900 VTAB 9 

910 PRINT "FORME" ; TAB ( lb> ; "ADRESSE" 
920 POKE 34, 10: VTAB 11 
930 FOR I = 1 TO N 

940 PRINT TAB ( 5 - LEN ( STRS (T)));T; T 
AB( 20 - LEN ( STRS < AD ( I > ) ) ) ; ADRES 
SE(1> 

950 IF IE* = THEN 970 

960 IF 1 - N OR I - 10 * 1 NT (I / 10) THE 

N GET AS: HOME 
970 NEXT 
960 IE* = 0: TEXT 
990 RETURN 

1000 REM -0- PROGkAMME PPAL 
1010 GOSUB 260 
1020 GOSUB 410 
1030 HUME 

1040 PRINT "COMMANDES": PRINT 

1050 PRINT "DESSIN DES FORMES 1" 

1060 PRINT "TABLE D * ADRE5SES 2" 

1070 PRINT "IMPRESSION 3" 

1060 PRINT "AUTRE TABLE 4" 

1090 PRINT "TERMINE .....5" 

1100 GET AS:AX = VAL (AS) 

1110 ON Ax GOSUB 520,850,750,1120,1130: GO 

TO 1030 
1120 RUN 

1130 TEXT : HOME : END 

1140 REM -8- TRA ITEMENT ERREURS 

1150 ER = PEEK (222) :LI = PEEK (21&) * P 

EEK (219) • 256 

1160 IF ER ■ 6 THEN MESSAGES = NS * " I NCO 

NNU" : GOSUB 240: RUN 
1170 TEXT 

1180 PRINT CHRS (13) CHRS <4)"PR*0" 

1190 HOME : PRINT "ERREUR TYPE "ER: PRINT 

"LIGNfc "LI: END 

1200 REM -9- FICHIER NON-TABLE 
1210 MESSAGES = NS + " N ' EST PAS UNE TABLE" 

: GOSUB 240: RUN 



Pom's n° 13 



35 



FAITES 
IVRE VOTRE 
APPLE II 



<nn««« la Bd> « J** c ~ dl»auett« 





UfMMl el WJ dfincxe* 

par Jean MicM.'«&o 

fet ouvroae present* V analyse el a 

1« p.ntesonneU de la paw 
Lelivr« - 136 pases- U0_00^ 

La disquctte : M5.00 FF 



uar Bernard St,\mot\ . 1B4>r i« 
exempt* H' application 

UHvrc: 156 pages -100,00 FF 

Ladisquettc- 195.00 FF 



Ud isqU e«tc:1^00FF 



Nouvell* vomptobilite 

Mi Apple IV iomL'1 
pnr Serge er Gerard L/tliu 
Voici un ensemble cmfk* « P 10 .. 
Snmes de Comport *g Apple I 

Pour petit* wywpfl** 

hbetales. artisans. W^g^^ 

fediiion des Uvre-luu.nol. atand-liww. 

leslivres de baiique. de TV* d* £ 

cell*. »ns» H 3 ' r™^4 

(ection des BlflEUf* d* hfffi£f?S 
du systeme ; tumpte A 6 cMHr« 400 

Le Hvre: 184 P«a«"^0.00 

U disquette; 195.00 rr 



sur Apple U tome 2 

par Serqeer Gerard LIHio 

second »ome connem trob 
frames complex ma.res d» pro- 
SammS de ccVmptatnUte du lome 1 

nu'un programme de OomptaWg 9* 

8 pouces. disques du,* ou d urtf 
uniic5pouc«sl4 

Le Hvre : 144 pages - 110.00 1-h 
La diskette : 195.00 FF 



Vbicak sur Appl* 
par Herve Thfrtez 

tine pres.nlal.on P^X' £ 

d' utilisation _ rt « n ,» rr 

Hvre : 176 pages - 90 ^00 rr 
Lodisquette: 195.00 



L Apple enesfictiier* 
par Jacques BoisflO"'*' , 

proqrammation des ap^^J*L 
Liu les iich.ers foUVrtflJ »rwnan« 

r a non Usque td des rn.truct.on. du 
SS? Ap3«soli Lea instrucnon, des 

Lelivte:176png«s n 90_00 Fr 
La disquene: 195.00 FF 




uioc*53uo do la IT 5 " " soul 
Ladisquette: 195.UU rr 




Mr^Ws Obliques U« decisis 

£ disquetf , 195.00 FF 




par Jron-Pter™ BtanS*' 

rotaaon de poiV9 d - eKpIC5 sion 
LadisquetK 195°°^ 



Udisquene- 195.00 FF 




Melbodesdecalcui^n.eriquc 
^rTlnude Nou>okou>sk1 

Tome 2: 184 pages -110 00 rr 
Udisqu^pourlesitome*. 

1195.00 FF 



U Basic et I'ecolc T«*M ' 
La disquette ■ 195.00 FF 



UBawell'Kul< I 

commealania.wn 

Le Hvr€:l60 pauea- 

La disquctte : 195.00 FF 



P.S.I. DIFFUSION 

BP 86 - 77402 Lagny-S Marne Cedex 
FRANCE 

leiepnone (6) 006.44.35 
P.S.I. BENELUX 

5, avenue de la i-erme Hose 

1160 Bruxellea 
BELCICJUE 

Telephone (2) 345.08.S0 




Envoyer ce bon 
accompaqne de voire 
regiement a 
PS I. DIFFUSION 
ou. pour ia Beigique et 
le Luxembourg a 
PSA. BENELUX 
ou. pour la Suisse a 
PS I. SUISSE 

□ PaMMMpercMOjuefDM I | Paiemeni en FF par cane oieue visa 
(dP3l DIFFUSION uiiiMuemcriGl 



DEStC NATION 


NOMBHE 


K'nix 




















oar aviO" aiou ter &Ef(75 FBl oar Swe 


TOTAL 





nil rarre dental) 



N"l 



_j I Dale d'expiraiinn | 



NOM 

rue _ 



PRENOM 



Coaeposiai 



Ville 



II etait temps qu'un capitaliste 



LENIN 



KARL 
MARX 



OTSK 



DAS KAPITAL 




N'apprenez plus a devenir une machine, Apple a invente Macintosh 



Pom's a vu LIGHT 1 

Alexandre Duback 



LIGHT 1 est un ensemble de logi- 
ciels d'aide a la programmation dif- 
fuse par la societe Les Annees Nou- 
velles. Si certains de ses modules 
sont a la portee de tous, ou presque 
(catalogue general, recherche de 
Tokens...), 1' exploitation des metho- 
des de "pistage" de proqrammes 
qu'il propose sera uraisembiablement 
reservee aux utilisateurs "profession- 
nels" des Apple II et lie. 

Le produit se presente sous la forme 
d'une disquette "logiciels", accompa 
gnee d'une documentation imprimee. 
L'apprentissage de son fonctionne- 
ment peut etre complete par des 
stages de deux jours organises par 
Les Annees Nouvelles. Nous presen- 
terons ici rapidernent les differentcs 
fonctions offertes, en insistant sur 
celles qui nous paraissent les plus 
utiles ou les plus originales. 

Acces direct aux disquettes 

Lc module baptise ZAPPLE 7 per- 
met toutes les operations de manipu- 
lation dp disquettes (formatees en 
DOS 3.3) au niveau du secteur . 

• Lecture et affichage du contenu 
d'un secteur octet par octet, avec 
possibihte de modification et de 
r£-ecriture. 

• Analyse et manipulation du direc- 
tory. 

• Etat d* occupation d'une disquette. 

• Recherche de fichiers et recupera- 
tion possible de fichiers detruits. 

• Identification, nettoyage et trans 
fert de secteurs (d'un disque a un 
autre). 

• Recherche de suites d'octets ou de 
caracteres sur la disquette. pour 
savoir, par exemple. dans quels 
octets de quel secteur a ete enre 
gistree la sequence "DUPONT". 

• Impression de suites de secteurs, 
ainsi que des differents secteurs 
occupes par un fichier donne. 

Ce programme peut done aider a la 
recuperation de disquettes endom- 
magees sur le plan logique, mais 
aussi a la mise au point de logiciels 
dont les operations de lecture et ecri- 
ture sur disquette ne produisent pas 
les resultats esperes. 

Autres utilitaires "ponctueis" 

Hous regroupons ici differents pro- 
grammes assurant chacun un traite- 
ment precis et independant des 
autres. Les traitements concerned 
sent : 

• Constitution et exploitation d un 
catalogue general de disquettes 
(liste alphabetique des fichiers, re- 



cherche d'un fichier donne, liste 
des fichiers dont ie nom 
commence par une sequence don- 
nee, in selon le type de fichiers. 
liste des noms affectes aux dis- 
quettes enregistrees dans le catalo- 
gue, le tout a Tecran ou sur Lmprt- 
mante). 

• Affichage des informations de 
chargemenl de fichiers blnaires 
(adresse de depart et longueur). 

• Recherche de Tokens, de suites 
de caracteres (y compris caracteres 
de controle) et de variables dans 
un programme en Applesoft. 

• Recherche de sequences d'octers 
en memoire centrale. 

• Impression desassemblee de codes 
hexddecimaux et recherche d'oc- 
tets inurilises dans une portion de 
memoire. 

• Comparison de deux sequences 
d'octets en memoire ou sur dis- 
quette. 

Le pistage de programmes 

Ce traitement tres complet (et relati 
vement complexe) peut etre applique 
a des programmes en Applesoft ou 
en langage machine. II permet tres 
exactement de suivre pas a pas les 
etapes de deroulement d'un pro- 
gramme et de savoir quelles adresses 
et quelles routines du systeine sont 
urjlisees, de suivre 1'appel et 1'execu- 
tion des differentcs sequences du 
programme lui-rneme. de connaitre 
le contenu des registres apres chaque 
instruction... 

Un premier module, baptise Ariane, 
conslruil sur disquette une table des 
adresses destructions par lesquelles 
passe le programme etudie. II est 
possible de definir la zone dont on 
veut ainsi pister le deroulement - fe- 
ndtre d'une adresse a une autre, me- 
morisation uniquement a partir du 
passage a une adresse precise ou 5 
un numero destruction designe ■ les 
instructions sont numerotees par le 
logiciel dans I'ordre chronologique 
d'apparition au cours de 1'execu- 
ticin... On peut de mgme "masquer" 
une sequence d'adresses pour le pis- 
tage, afin de ne pas encombrer la 
table avec le compte-rendu du de- 
roulement de routines non significati- 
ves (attente au clavier, boucle de 

dm.,). 

Des logiciels annexes permettent en- 
suite d exploiter cette table pour eta- 
blir une premiere ' radiographic" du 
programme etudie : impression de la 
succession des adresses d' instructions 
empruntees, tableau des adresses 



distinctes et de leur nornbre d* occur- 
rences (combien de fois passe-t-on 
par les routines CHRGCT, NEWSTT. 
CHKNUM...), recherche des nume- 
ros d 1 instructions ou apparait telle ou 
telle adresse remarquable... Pour fa- 
ciliter r interpretation de ces resultats. 
vous pouvez constituer des tables 
d'adresses remarquables en fonction 
des operations sur lesquelles se cen- 
tre votre interet. Une table de cette 
nature permet d'affecter un nom a 
chaque adresse d : instruction que 
vous jugez particulierement significa- 
tive, par exemple. CI ERGET pour 
l'adresse $B1, NEWSTT pour 
I'adresse $D7D2.„ 

Cette premiere exploitation des resul- 
tats d 1 Ariane vous guidera ensuite 
dans F utilisation du module Chalut, 
qui realise le pistage pas a pas pro- 
premeitt dit. Sur les sequences criti- 
ques d' execution precedemment jso- 
lees, Chalut vous donncra un 
compte-rendu complet du deroule- 
ment du programme : 

• Numero destruction 

• Contenu des registres A. X, Y et S 
en hexa. 

• Valeur des bits du rcgistre d'etat 
du piocesseur. 

• Adresse de Tinstruction et libelle 
en hexadecimal et en desassem- 
ble. 

• Contenu d'adresses remarquables 
designees. 

L'ensemble de ces modules produit 
done finalement un rapport tres d6- 
taille sur le deroulement de vos pro- 
grammes. Ceci vise tout d'abord a 
isolev les causes d'un mauvais fonc- 
tionnement. mais peut egalement 
servir a connaitre plus en detail les 
i ou lines du moniteur de 1' Apple ou 
de T Applesoft, puisqu'il est parfatre- 
ment realisable d'en pister le derou- 
lement au moyen de petits program- 
mes qui les utilisent (un petit 
programme de calcul en Applesoft, 
par exemple. pour examiner a la 
loupe le fonctionnement des routines 
"virgule flottantc", isolcr les causes 
du "bug" signals dans Pom's 11 et 
le resoudre, comme Font fait les au- 
teurs du logiciel...). 
L'emploi d'un tel systeme ne semble 
toutefois se justifier que pour des 
programmes complexes, dont le pis- 
tage manuel representerait une perte 
de temps prohibitive, ou pour quel- 
qu'un eprouvant lc besoin de rentrer 
Ires precisement dans l'etude du 
fonctionnement de f Apple II sera 
done vraisemblablement reserve a 
des usages professionnels. 
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L' ensemble du logiciel accompagn£ 
dc sa documentation est propose au 
prix de 1950 F TTC. Les journees de 
formation, quant a elles, reviennent a 
1000 F TTC par jour: elles peuvent 
potter a la fois sur 1'apprentissage de 
LIGHT 1 lui-meme et sur la presen- 
tation de la structure ct du fonction- 
nement "soft" de 1' Apple, dont une 
connaissance minimale est de toute 
facon requisc pour tirer un meilleur 
parti du produit 



t.e prix, relativement eleve malgre 
tout, peut trouver sa justification dans 
^integration des routines utiles a 
r analyse de programmes que pro- 
pose LIGHT 1 (vous disposer en un 
seul systeme d'outils pour la manipu- 
lation des disquettes, la recherche de 
Tokens, la comparaison de sequence 
d'octets...). En outre, la methode de 
"pistagfi" conduit effectivement a 
une resolution tres fine de difficultes 
dont F etude par d'autres moyens 



pourrait constituer une tache particu 

Berement fasUdieuse, sinon tout a fait 
decouraqeante. 

Quant a I'apprentissage de r utilisa- 
tion du produit, la ducunienlation 
foumie peut y suffire. Le recours aux 
journees de formation depend finale- 
ment du temps que vous entendez y 
consacrer et de votre niveau de 
connaissances en matiere d'Applc 
"soft". 



Thinktank a Tessai 



Guy Lapautre 



Un logiciel pas comme 
les autres 

Thinktank est ties larye d'idees. ce 
qui est bien la moindre des choses 
pour un logiciel de "traitement des 
idees". Pas besom de classement 



prealable. inutile de structurer ce 
qu'on veut lui conficr (enfin pre 
que...). N'exayerons rien. il ne mettra 
quand meme pas d'ordre dans un 
chaos originel. 

Mais il est plein de ressources : on 
peut developper Lei, condenser la, 
changer la hierarchie enrre les objets 
traites. creer des niveaux supplemen- 
laires. trier alphabetiquement une 
table des matieres, rechercher un 
quelconque vocable dans tout ou 
partie d'un ensemble, meme particu - 
lierement touffu {ce n'est pas fou- 
jours tres rapidc). provoquer des edi- 
tions ou des duplications selectives, 
fusionner. communique avec des fi- 
chicrs tiers... 

Mais attention ! Si Thinktank (reser- 
voir d'idees) permet lout cela. ne 

vous meprenez pas pour autant. II 
n'est pas question ici d'intelligence 
artificielle. de demarche inductive ou 
d£dnrtiVf? Comme dans la celebre 
auberge espagnole, on y trouve ce 
qu'on y apporte. Mais il est surement 
plus facile de ly retrouver que dans 
ladite auberge. 

Ce n'est pas non plus un gestlon- 
naire de fichiers au sens classique du 
terme. Pas de notions d'enregistrc 
ments et de champs ou d'indexation. 
Et pourtant. il permet de stocker des 
informations et de les retrouver. Ce 
n'est pas davantage un traitement de 
texte. Cependant, il possede un edi- 
teur et un generatcur de formats 
d' edition. Au fond, e'est peut-etre 
encore son norn de "reservoir 
d'idees" qui le definit le mieux. 

La documentation comporte un "tu- 
torial" qui explique sur un exemple 
les grands principes de fonctionne- 
ment. Un manuel de reference plus 
complet lui fait suite. 



Sur le plan de la commodite d'em- 
ploi, un guide par menus enchames 
rend les principles options aisement 
accessibles. Si vous ave2 de la me- 
moir?, vous pouvez accelerer le pro- 
cessus en tapant, a tout stade ou 
presque, la lettre initiate de la 
commande que vous voulez mettre 
en oeuvre. Et, si vous avez tout ou- 
blie (ou presque). une commande 
unique " / " vous permet. de tout 
point du programme, de passer au 
menu (de meme que te touche ESC 
vous fait sortir de Toption en cours). 

On pourra faire deux critiques au ni- 
veau de la commodity d'emploi. La 
premiere tient justement a cette 
commande ESC: elle fait generate 
merit sorQr d'une option en aban- 
donnant ce qui n'a pas ete rendu de- 
finitif. En revanche, quand vous avez 
fini de rediger un "paragiaphe". ESC 
est la sortie normale qui sauvegarde 
le travail (alors que RETURN ne 
remplit que Id function de saut de 
ligne). La seconde concerne Tediteur. 
peu classique (et en fait peu puis- 
sant). Pai exemple. la fleche amere 
efface le caractere qui precede le cur- 
seur. alors que la touche DEL efface 
le caractere sous le cutseui. 

Un exemple d utilisation 

Ma femme et moi manquons quel- 
que peu de memoire (en tous cas 
pour les besoins de la cause... mais 
cela doit efre egalement un peu vrai 
dans la vie). Aussi avons-nous confie 
& Thinktank tout un lot d'idees qui 
nous sont passees par la t£te, afin de 
disposer d'un pense-bete permanent 
pour les deux mois de vacances que 
nous comptons rnyaiement nous of- 
frir. 

Grande bridgeuse devanl Teleniel, 
ma femme a d'abord ouvert une ru- 
brique BRIDGE, sans trop savoir ce 
quelle allait y rnettre. Un peu plub 
tard, elle a "fourre" dans cette rubri- 
que les noms des personnes avec 
lesquelles elle est accoutumee a brid- 
ger pendant les vacances. avec quel- 



ques indications generates pour cha- 
cune d'entre elles. 

Elle a aussi mis "dans le meme pa- 
nier' quelques idees sui les compar- 
tments du jeu ou elle a envie de se 
perfectionner. Ce qui l a conduit a 
reprendre quelques noms de joueurs 
pouvant l'y aider. Fourquoi pas? 
Thinktank s y retrouvera toujours, 
meme si une information unique fi- 
gure a plusieurs endroits. 

De mon cote, je me suis penche sur 
le probleme des gens qui viendraient 
nous voir Entre-temps d'ailleurs. j'ai 
pense qu'il etait peut-etre preferable 
de mettre un peu a part la famille 
(elle comporte parfois des gens sus- 
ceptibles., .). Un petit changement 
dans 1'ordre des rubriques y pour- 

voit. J'ai en outre note au passage 
une interference avec le bridge de 
Madame : il y a des parents et amis 
qui sont aussi bridgeurs ! Certains 
avaient ete pris en compte dans la 
rubrique Bridge. d ; autres non. Ma 
femme a decide de n'y garder que 
les bridgeurs habituels. De toute 
fagon. Thinktank les retrouvera tous. 
si on le lui demande gentarnent. 
Notez qu'il eut ete possible de dupli- 
quer dans la rubnque bndqe les don- 
nees concemant le bridge dans la fa- 
mille ou chez les amis... 

Vous direz peut-£tre que. meme si 
Thinktank y met de i'ordre. I'ccran 
contenanl des donnees aussi dispara- 
tes doit saverer difficile a lire. Une 
des fonctionnalites les plus originales 
du logiciel est "etendre / restieindte", 
qui permet en se plagant a n'irn- 
porte quel niveau, d' etendre tout ce 
qui concerne le niveau N— 1. qui ap- 
paraTt alors sur I'ccran. ou au 
contraire de Ee restreindre, ce qui le 
fait disparaitie de 1'ecran (mais evi- 
demment pas de la memoire). Si 
vous voulez etendre ou restreindre 
sur plusieurs niveaux a la fois, il buffit 
de faire preceder la commande du 
nombre de niveaux voulus. La 
commande elle-meme est bien choi- 
sie au plan mnemotechnique : "<" 
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pour etendre ou elargir, M >" pour 
restreindre ou reduire. 

Quant a la commande d' impression, 
elle lance sur irnprirnante, comrne 
litre, la rubrique sur laquelle se 
trouve le curseur, et cornme texte, 
tout ce qui est d'un niveau inferieur 
dans cette rubrique. Si vous vous 



place? en tete, sur le nom du "fi- 
chier", vous editez alors la totalite de 
celui-ci. 

Fac Simile de quelques editions 

(1) - L'ensembte des Litres 

(2) - Les titres de la partie BRIDGE, 
apres ajout d'un chapitrc 



(3) - Edition complete de la partie 
LES AMIS QUI VIENDRONT 

(4) - Table des matieres de cette par- 
tie 

(5) - Une autre edition complete, 
dans une forme style "rapport" 

(6) - La table des matieres corres- 
pondantes _ 
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[-'instruction PEEK permet la saisie 
du contenu d'une adresse en me- 
moire a partir d'un programme 
Basic. Definissons la fonction : 
DEF FN PE(X) = PEEK(X) + 256 * 
PEEK(X+1) 

qui permet la saisie d'un nombre su- 
perior a 255. Cette instruction devra 
figurer dans votre programme Basic. 

Cette liste de PEEKs vous permettra 
d'une part de mieux comprendre 



PEEKs a gogo 

Roland Jost 




propres programmes 



Page zero 

• X - FN PE(11> . adresse du sous- 
prograrnme appele par USR. 

• X = FN PE(26) ; valeui du poin- 
teur dans la table de formes. 
Apres un DRAW ou un XDRAW, 
X = ddiesse de la prochaine 
forme de la table. 

• X = PEEK<32) : marge gauche de 
la fenetre de texte 

• X - PEEK(33) : largcur dc la fe 
netre de texte 

• X = PEEKC34) : haut de la fenetre 
de texte 

• X = PEEK(35} : bas de la fenetre 
de texte 

• X = PEEK(36) : position horizon- 
tale du curseur (0 <= X <= 39). 

• Y = PEEK(37) : position verticale 
du curseur (0<= Y <= 23). 

Essayez par exemple P instruction sui- 

vante : 

HOME: SPFF.n=mO: VTAR 10- 
FOR X=0 TO 100: CALL 868: 
POKE 37.PEEK(37)-1 : POKE 36. 
PFF.K(36) + 10 - LEN(STR$(X)) : 
PRINT X : NEXT 
ou encore : 

IF PEEK<37) = 23 THEN PRINT 
"Taper une toucne pour continuer":: 
GET R$ .... qui permet l'arret mo- 
mentane de l'affirhage lorsque 
Fecran est rempli. 

• X = FN PE(38) : adresse memoire 
du debut (colonne 0) de !a ligne 
courante en mode GR. 

• X = FN PE(40) ; adresse memoire 
de la colonne de la ligne cou- 
rante en mode TEXT. L instruc- 
tion ci-dessous permet d'afficher 
les adresses de debut des lignes 1 
a 22 de la page TEXT : 

HOME : FOR 1 = 1 TO 22 : PRINT 
T "FN PE(40) : NEXT I 

• X = INT(PEEK<48)/17) : code de 
la couleur GR (bas.se resolution); 
noir = 0. magenta = 1. bleu 
fonc£ = 2, pourpre = 3, vert 
fonce — 4, giis. = 5, bleu = 6, 
bleu clair = 7. brun = 8, orange 
= 9, gris = 10, rose = 11, vert = 
12. jaune — 13, transparent - 14, 
blanc = 15. 

• X = PEEK(50) : indique le mode 
d affichage texte en cours : 255 = 



NORMAL. 63 = INVERSE. 127 
= FLASH. 

• X = FN PEI54) : CSW.C5WH : 
adresse de la routine de sortie de 

caiaetSres, 
bans DOS : X = 65008 ($FDF0) 
DOS standard en MEV : X = 40637 
DOS reloge en carte SATURN : X = 
48961. 

• X = FN PE(56) ; KSW.KSWH . 
adresse de la routine d'entree de 
caracteres. 

Sans DOS : X = 64795 

DOS standard en MEV ; X = 40577 

DOS reloge en carte SATURN : X = 

48966. 

H peut etrc intercssant dc deconnec- 
ter le DOS pendant une execution 
de programme et de le reconnecter 
plus tard. Ccci pcut sc faire par la 
suite d" instructions suivante : 
FOR X = TO 3: PD(X) = 
PEEK(54 + X) : NEXT: POKE 
54,240: POKE 55,253: POKE 56,27: 
POKE 57.253: REM DtCONNECTE 
LE DOS 

FOR X = TO 3: POKE 54 + X. 
PD(X): NEXT: REM RECONNECTS 
LE DOS 

• X = PFFK(78) ■ nombre aleatoire 
entre et 255. 

• X = PEEK(79) : nombre aleatoire 
entre et 255. 

• X = FN PE(78) : nombre aleatoire 
entre et 65365. 

• X = FN PE(103) : TXTTAB ; 
adresse de debut du programme 
Applesoft (normalement $801 ) 

IF FN PE(103) <> AD OR 
PEEK(AD - 1) <> THEN POKE 
104,AD/256 : POKE 103,AD - 
256*PEEK(104) : POKE AD- 1,0: 
PRINT ( CHR$(4) "BRUN pro- 
gramme 

permet a un programme Applesoft 
de se reloger lui-meme plus haut en 
memoire a partir Hp F adresse AD 

• X = FN PE(105): LOMEM : 
adresse de debut de la zone des 
variable?. 

• X = FN PE(107) : ARYTAB : 
adresse de debut de la zone, des 
tableaux. 

t X = FN PE(107) - FN PE(105) : 
longueur de la zone des variables 
simples. 

• X = FN PE(109): STREND : 
adresse de fin de la zone des ta- 
bleaux. 

• X = FN PE(109) - FN PE(107) : 
longueur de la zone des tableaux 

• X = FN PE(lll): FRETOP: 
adresse de fin de la zone libre. De 
la fin de la memoire jusqu'ici sont 
stockees les chames de caracteres. 



• X - FN PE(lll) - FN PEU09) ; 
nombre d" octets de MEV libres. 

• X - FN PE(115). II1MEM . fin de 
la zone memoire utilisable. 
Adresse du debut de stockage des 
chaTnes de caracteres. 

• X - FN PE(117): CURL1N: 
conlient le numero de la ligne de 
programme en cours d' execution. 

• X = FN PE(119): OLDLIN : 
contient le numero de la demiere 
ligne de programme executee. 

• X = FN PF021)- OLDTXTPR ; 
adresse RAM de l'instruction a 
executer - 1. 

Pour supprimer la ligne nnnn et les 
liqnes precedentes dans un pro- 
gramme Applesoft, faire : 
nnnn X = FN PE(121) I 1 : POKE 
103,PEEK(X): POKE 104,PEEK(X+1). 
Cela permet par exemple d'augmen- 
ter la vitesse d'execution du pro- 
gramme, en deplacant le "haut" du 
programme. Pour revenir an* poin- 
teurs originaux, faire POKE 103,1 : 
POKE 104.8. 

• X - FN PE(123) : numero de la 
ligne DATA a lire ou en cours de 
lecture. 

• X = FN PEI125): adresse me- 
moire du premier octet de la pro- 
chaine donnee a lire en DATA. 

• X$ = CHR$ (PEEK(129)) + 
CHR$ (PEEK(130)) : nom de la 
demiere variable utilises. Son 
adresse se trouve en 131 et 132. 

• X = FN PEU31): VARPNT: 
adresse de la demiere variable uti- 
lised (ou du descripteur de cette 
variable). Le nom de la variable se 
trouve aux adresses 129 et 130. 

L'adresse de la variable X pound 
etre obtenue par X=0 : PRIN T FN 
PE(131). 

• X = FN PF(175): PRGEND : 
adresse de la fin du programme 
Applesoft. 

• X = FN PF(175) - FN PF(103): 
longueur du programme Apple- 
soft. 

Pour sauver un programme Apple- 
soft sous forme binaire, faire : 
AF = FN PE(175) ! XX = AF - 
2048 • BSAVF nom du programme, 
A$800,LXX. Le programme ainsi 
sauve ne pourra plus etre execute* 
par un RUN ni par un BRUN. Pour 
lancer V execution, faire un BLOAD 
puis un RUN. 

• X = FN PE(218): ERRL1N : 
contient le numero de ligne ^ de 
programme ou une ezreiir $W 
produite. 

• X = FN PE(220) : valeur du poin- 
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teur dans Pinstruction ou s'est pro- 
duite Perreur. 

• X = PEEK(222) ; X sera 3gal au 
code d'erreur (Applesoft ou DOS). 

X = : NEXT WITHOUT FOR 
ERROR 

X = 1 : LANGUAGE NOT AVAILA- 
BLE 

X = 2 : RANGE ERROR 
X = 3 : -idem- 

X = 4 : WRITE PROTECTED 

X = 5 : END OF DATA 

X = 6 : FILE NOT FOUND 

X = 7 : VOLUME MISMATCH 

X = 8 : I/O ERROR 

X - 9 : DISK FULL 

X = 10 : FILE LOCKED 

X = 11 : SYNTAX ERROR (DOS) 

X = 12 : NO BUFFERS AVAILABLE 

X = 13 : FILE TYPE MISMATCH 

X = 14 : PROGRAM TOO LARGE 

X = 15 : NOT DIRECT COMMAND 

X= 16: SYNTAX ERROR 

X = 22 : RETURN WITHOUT 

GOSUB ERROR 
X = 42 : OUT OF DATA ERROR 
X = 53 : ILLEGAL QUANTITY 

ERROR 

X = 66 : OVERFLOW ERROR 
X = 77 : OUT OF MEMORY 
ERROR 

X = 90 : UNDEPD STATEMENT 
X = 107 : BAD SUBSCRIPT 

ERROR 
X= 120 :REDIM'D ARRAY 

ERROR 

X = 133 : DIVISION BY ZERO 
X = 149 : ILLEGAL DIRECT 

ERROR 
X = 163 : TYPE MISMATCH 

ERROR 

X = 176: STRING TOO LONG 

ERROR 
X = 191 : FORMULA TOO 

COMPLEX 
X = 210 : CANT CONTINUE 
X = 224 : UNDEFD FUNCTION 
X = 255 : BREAK 

Exemple de sous-programme de trai- 
tement d'erreurs : 

10 POKE 758,104. POKE 759.168: 
POKE 760.104: POKE 761,166: 
POKE 762,223: POKE 763,154: 
POKE 764,72 . POKE 765,152 : 
POKE 766,72 : POKE 767,96 : REM 
ROUTINE DE TRAITEMENT D'ER 
REURS (MANUEL APPLESOFT) 
20 ONERR GOTO 30000 
30000 CALL 758: ER = 
PEEK(222) : LN - FN PE(218) 
30010 PRINT "ERREUR NUMEKO 
"ER" A LA LIGNE "LN 
30030 IF ER<1 or ER>15 THEN 
PRINT "programme interrompu" : 
END 
30040 

30050 IF ER = 4 THEN PRINT 
"Disquette protegee en Venture - 
changer de disquette " ;; GET R$ . 
PRINT CHR$( 13) + CHR$(4) "com- 
mand* DOS" : GOTO 30100 
30060 

30070 IF ER = 9 THEN PRINT 



"Disquette remplie - changer de dis- 
quette";: GET R$ : ... GOTO 30100 
30080 

30100 RESUME: REM retour a 
rinstructlon ou Perreur a eu lieu 

• X = PEEK(223) : valeur du poin- 
teur de pile avant I'erreur. 

• X = FN PE(224) : cooidunnee 
horizontale du curseur HCiR. 

• X = PEEK(226) : position verti 
cale du curseur HGR. 

• X = PEEK(228) : code couleur 
HGR : noir - 0, vert = 42, violet 
= 85. blanc = 127. noir = 128, 
orange = 170, bleu - 213. blanc 
- 255, 

• X - PEEK(230) : code de la der- 
niere page HGR appelee. Pour la 
page 1, X = 32. Pour la page 2, 
X = 64. 

Pour que les instructions HGR agis- 
sent sur fa page haute resolution non 
affichee. faire POKE 230,96 - 
PEEK(230). 

• X - PEEK(231) : valeur de 
SCALE (entre 1 et 255). 

• X = FN PE(232) : adresse de 
debut de la table de formes. 

Exemple d! utilisation : IF FN PF.(232) 
<> XXXXX THEN PRINT CHR$(4) 
"BLOAD Table de formes. AXXXXX" 

• X = PEEK(234) : compteur de 
collision HGR. 

• X = PEEK(241) : 256 - X - Vi- 
tesse d'affkhaqe ecran. Utilise par 
"SPEED=". 

• X = PEEK(249) : valeur de ROT 
(entre et 255). 

Page 3 

• X m FN PE(977) : si X <> 
40383, le DOS n'est pas present 
en MEV 

• (OB = PEEK(987) * 256 + 232 : 
adresse de la table des en- 
trees/sorties utilisee par RWTS. 

• X = FN PE(1008) : adresse du 
sous-programme gerant les inter- 
ruptions BRK. 

• X - FN PE(1010) : adresse de re- 
tour au iangage en cours dutilisa- 
tion. 

• X = FN PE(1014): adresse d'un 
sous-programme appele par & 
(Ampersand). 

• X = FN PE(1017): adresse d'un 
so us -program me appele par 
CTRL-Y en mode moniteur. 

Pages tcxte ($40O-$7FF) 

• CA = PEEK(1024 + X + 128*Y 
^ - 984*INT(Y/8)) 

CA = code ASCII du caractere se 
frrmvant au point de coordonnees X 
et Y de P ecran texte (0 <= X <= 
39 et <= Y <= 23). 
Pour la page 2 de texte (non accessi- 
ble normalement en Applesoft), rem- 
placer 1024 par 2048. 



8 groupes dadresses sont reseivees 

a chacun des slots : 

0: $478-$47F (1144-1151) 

1 : $4F8-$4FF (1272-1279) 

2 : $578-$57F (1400-1407) 

3- $5F8-$5FF (1528-1535) 

4 : $678-$67F (1656-1663) 

5: $6F8-$6FF (1784-1791) 

6: $778-$77F (1912-1919) 

7 : $7F8-$7FF (2040-2047) 

Vous pourrez y trouver certaines in 
dications conceinaiil les peripheri- 
ques, par exemple : 
X = PEEK(1144) (soit $478): nu- 
mero de la derniere piste lue ou 
ecnte. 

X = INT(PEEK(1528)/16) <soit 
$5F8) : numero du slot contenani le 
controleur qui a initialise le DOS en 
activity. 

Page 8 

Un programme Applesoft commence 
normalement a Padresse $801 
(2049). 

• AD = FN PE(2049) : adresse de 
!a seconde ligne du programme 
Applesoft ; 

• NUM = FN PEC2051): numero 
de ligne de la premiere ligne Ap- 
plesoft. 

DOS 48K ($9600-$BFFF) 

Toutes les adresses sont donnees 
pour un systeme 48 K. Pour 32K ou 
16K. retrancher respectivement 
16384 et 32768. Pour "un DOS re- 
loge en carte Iangage ou extension, 
ccs adresses ne sont plus valables. 

• X = PEEK(40185) : X=0 ou X > 
2 pour lecteur 1: X=2 pour le 

• X = FN PE(40192) - 595 * N 
+38 : adresse du Neme tampon 
du DOS. 

• X = PEEK(43603) : adresse de la 
routine de sortie de caracteres (cf 
CSW.CSWH) 

• X = PEEK(43604) : adresse de la 
routine d'entree de caracteres (cf 
KSWH.KSWL) 

• X - PEEK(43607) : nombre de 
tamr^n^^buHers) du DOS. Hxe 

• X = FN PE(43616) : longueur du 
dernier programme bmaire charge 
en MEV. 

• X - PEEK(43622) ; numero de 
volume actuel. 

• X = PEEK(43624) ■ numern Hp 
lecteur actuel. Pour permuter 
entre deux lecteurs, faire un 
POKE 43624,3-PFFK(43624) 

• X = PEEK(43626) : numero de 
port actuel. 

• X = PEEK(43628) : longueur du 
dernier enregistrement. 

• X = PFF.K(43630) : numero du 
dernier enregistrement. 

• X = PEEK(43632) : numero de 
I' octet actuel 
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• X = FN PE(43634) : adresse de 
debut du dernier programme bi- 
en MEV. 



BLOCK IOB 

IOB (INPUT/OUPUT BLOCK) : uti- 
lise* par le sous-programme RWTS 
(Read Write Track Sector) pour Fae- 
ces a. un secteur de la disquette. 
L'adresse de la table- IOR utilises par 
le DOS est donnee par ; 

• IOB = 256*PEEK(FNPE(996)) + 
PEEK(FNPF(999)) 

Pour un DOS standard 48K, IOB = 
47080 ($B7E8). 

DOS reloge en carte SATURN - IOB 
= 49128. 

Les informations suivantes peuvent 
etre obtenues par un PEEK a une 
adresse de 1TOB : 

• X = PEEK(IOB) : type de 1TOB, 
egal a 1 pour DOS sur disquette. 

t X = INT(P£EK(10b + 1J/16) : 
nurnero du slot dans tequel se 
Irouve r interface DISK a utiliser. 

• X - PEEK(IOB 4- 2) : nurnero du 
tecteur de disque (1 ou 2) a utili- 
ser 

• X = PEEKdOB 4- 3) : nurnero de 
vuiuirtfc; dtlendu. 

• X = PEEKdOB + 4) : nurnero de 
la derniere piste luc (0 31). 

• X = PEEKdOB + 5) : nurnero du 
dernier secteur lu (0 - 15 en DOS 
3.3, - 12 en DOS 3.2). 

• X = FN PEdOB + 6) : adresse de 
la table des caracteristiques de la 
memoire de masse utilised. 

• X = FN PEdOB 4 8) : adresse du 
dernier tampon du DOS utilise. 

• X = PEEKdOB f 12) 

X = : mode posinonnement de la 

tete. 

X — 1 : mode lecture 
X = 2 : mode ecnture 
X = 4 : mode formatage 

• X = PEEKdOB + 13) ; contient le 
code d' erreur lors d'une operation 
ecnture ou lecture ; 

X = : pas d' erreur 
X = 16 : disquette protegee en ecn- 
ture ou defectueuse. 
X = 32 : erreur de volume. Ne cor- 
respond pas au volume attendu en 
IOB + 3. 

X = 64 : erreur de lecteur d'onqine 
indefinie. 

X = 128 : erreur de lecture. Emis 
apres 46 essais successifs infructueux. 

• X - PEEKdOB + 14) ; nurnero 
de volume de la derniere disquette 
lue. 

• X - INT(PEEK(10B + 15)/16) ; 
nurnero du dernier slot utilise. 

t X = PEEKdOB + 16) : nurnero 
du dernier lecteur utilise (0 ou 1), 

DOS reloge sur la carte d'exten- 
sion Saturn 32K 

• X = FN PF.(48992) ■ longueur du 



dernier nroqramme binaire charqe 
en MEV. 

• X = FN PE(49010) : adresse du 
dernier programme binaire charge 
en MF.V 

Adresses $C000-CFFF 

• X = PEEK(49152) (ou -16384) 
saisie au vol d'un caractere au cla- 
vier. Si X > 127. une touche a 
ete enfoncee et X - 128 = code 
ASCII du caractere frappe ou cla- 

^ vier. 

T .'instruction ci-dessous permet par 
exernple d'interrompre temporaire- 

ment i'affichage ; 

IF PEEK(- 16384) > 127 THEN 
POKE 16368,0: WAIT 16384, 
128: POKE -16368,0 

• X - PEEK(49184) (soit -16352) 
active la sortie magnetophone. 
Permet la sortie sur un amplifies- 
teur. Un deuxieme PEEK a la 
meme adresse desactive la sortie. 

• X = PEEK(49200) 
+ PEEK(49200) (soit -16336) : 
fait cliqueter le haut-parieur. Peut 
etre remplace par un POKE 
49200, PEEK(49200). 

Pour obtenir un "TOP", on pourra 

FOR I = 49200 TO 49230: X = 
PEEK(I) . NEXT 

Pour simuler le bruit d'une bille qui 
rebondil : 

FOR N = TO 30 : FOR 1 = 49200 
TO 49230 - N: X = PEEK(l) : 
NEXT I,N 

• X - PEEK(49216) (ou -16320) : 
impulsion utilitaire. La broche 5 
du connecteur de jeu chute de +5 
volts a volts pendant 0,98 mi- 
croseconds, puis revienl a +5 
volts. 

• X = PEEK(49232) (ou -16304) 
selection du mode graphique. 

• X - PEEK(49233) (ou -16303) 
selection du mode TEXT. 

• X = PEEK(49234> (ou -16302) 
selection du mode graphique non 
mixte (ecran entier). 

• X - PEEW49235) (ou -16301) : 
selection du mode graphique 
mixte (4 lignes de texte). 

• X = PEEK(49236) (ou -16300) : 
selection du mode graphique 
(HGR 1). 

• X = PEEK(49237) (ou -16299) : 
selection du mode graphique 
(HGR 2). 

• X = PEEK(49238) (ou -16298) : 
selection du mode graphique 
basse resolution, 

• X = PEEK(49239) (ou -16297) : 
selection du mode graphique 
haute resolution (HGR uu HGR2). 

• X = PEEK(49Z32) + PEEK 
(49234) + PEEK(49236) + PEEK 
(49239) : passage en mode HGR 
pleine page sans effacement. 

• X - PEEKI49232) + PEEK 



(49234) + PEEK(49237) + PEEK 
(49239) : passage en mode HGR2 
sans effacement. 

• X = PEEK(49240) (ou -16296) • 
sortie tout ou rien nurnero OFF. 

• X = PEEK(49241) (ou -16295) : 
sortie tout ou rien nurnero ON 

• X = PEEK(49242) (ou 16294) : 
some tout ou nen nurnero 1 OFF. 

• X = PEEK(49243) (ou -16293) - 
sortie tout ou rien nurnero 1 ON. 

• X = PEEK(49244) (ou -16292) : 
sortie tout ou rien nurnero 2 OFF 

• X - PEEK(49245) (ou 16291) i 
sortie tout ou rien nurnero 2 ON. 

• X = PEEK(49246) (ou -16290)- 
sortie tout ou rien nurnero 3 OFF. 

• X = PEEK(49247) (ou -16289) : 
sortie tout ou rien nurnero 3 ON 

• X = PEEK(49248) (soit -16288) 
active 1' entree magnetophone Un 
deuxieme PEEK a cette adresse 
deconnecte le magnetophone en 
lecture. 

• X = PEEK(49249) (ou -16287) : 
teste le bouton de la manette nu- 
rnero 0. Si X>127, le bouton a 
ete presse. 

II n'est effectivement prevu que 3 en- 
trees numeriques sur lesquelles sont 
branches les boutons poussoirs. On 
peut avoir une 4erne entree en utili - 
sant Fentree magnetophone 

• X = PEEK(49250) (ou -16286) : 
teste le bouton de la manette nu- 
rnero 1. 

• X = PEEK(49251) (ou -16285) : 
teste le bouton de la manette nu- 
rnero 2. 

• X = PEEK(49252) (ou -16284) : 
lecture de la manette nurnero 

• X = PEEK(49253) (ou -16283) : 
lecture de la manette 1. 

• X = PEEK(49254) (ou -16282) - 
lecture de la manette 2. 

• X = PEEK(49255) (ou -16281) : 
lecture de la manette 3. 

Ces entrees analogiques peuvent etre 
utilisees pour des accessoires autres 
que ies manettes. 

Les adresses 49256 a 49263 jouent 
un role identique a celui des adresses 
49248 49255. 

• X = PEEK(49264) (ou -16272) : 
remise a zero des entrees analogi 
ques. Les valeurs des adresses 
49252 a 49255 passent a une va- 
lour superieure a 127. 

FOR S = TO 7 : PRINT 
PEEK(49386 + 256*S) + 
PEEK(49388 + 256*S) + 
PEEK (49390 + 256*S) • NEXT 
foumit un nombre caracteristique de 
1' interface presente dans le slot S : 
: carte RAM STATIQUE LEGEND 
14 : carte CPS MULTIFUNCTION 
113 : carte langage APPLE 
350 ; programmateur d'Eproms 

Micro-Periph 
376: interface imprimante (depend 

Hp rinterfare) 



Pom's n* 13 



3 



497 • interface parallel© MID P2 
519 : carte SATURN 32K 
583 : interface DISK DOS 3.3 
632 : interface DISK DOS 3.2 

On peut aussi lire a cet egard "Ana- 
lyse dtl contenu des slots" dans le 
Pom's 1. 

• X = PEEK(49384) (ou -16152) : 
arrete le moteur du leUeur. 

• X = PEEK(49385) (ou -16151) : 
demarre le moteur du lecteur. 

Gcstlon dune carte d'extension 
MEV 

Les adresses ci-dessous sont donnees 
pour line rarte inseree dans le slot S 
(0<= S <= 7). 

• X = PEEK(49280 + 16*S) {soit 
-16256 + 16*S). COnnecte la 
carte d'extension memoire (BLOC 
2) en mode lecture. Protection en 
ecriture. 

• X = PEEK(49281 + 16*S) + 
PEEK(49281 + 16*S) (soit 
— 16255 + 16*5) : deconnecte le 
BLOC 2 en mode lecture. Depro 

tege en ecriture. Ld lecture de la 



ROM est possible. 

• X = PEEW49282 4- 16*S) (soit 
-16254 + 16*S) : BLOC 2 de la 
carte deconnecte en lecture, pro- 
tection en ecriture. Cest-a-dire re- 
tour au langagc en ROM. 

• X = PERK(49283 + 16*S) + 
PEEK<49283 i 16*S) (soit 
-16253 + 16*S) : le BLOC 2 de 
la carte d'extension est accessible 
en lecture ET en ecriture. 

Les 12K du RLOC I sont accessibles 
de la meme facon par les PEEKs sui- 
vants : 

• X = PF.F.K(49288 + 16*S) (soit 
-16248 i 16*S) 

• X = PEEK(49289 + 16*S) (soit 
-16247 + 16*S) 

• X = PEEK(49290 + 16*S) (soit 
-16246 t 16*5) 

• X = PF.FK(49291 4 16*S) (soit 
-16245 + 16*S) 

Pour une caile d'extension 32K ou 
plus, la 2eme tranche de 16K est ac- 
cessible par les PEEKs indiques ci- 
dessous : 

• BLOC 2 ; utiliser X - PEEK 



(49284 4 16*S) a (49287 + 
16*3). 

• BLOC 1 : utiliser X = PEEK 
(49292 4 16*S) a (49295 + 
16*S). 

ROM 

• X = PFM(fe4255) (soit -1281) 
X = si c'est la ROM AUTOSTART. 
X = 1 avec Tancien moniteur. 

NDLR ; une certaine redondance 
existe ineuitabfement entre Jes PEEKs 
a gogo et les POKEs a gogo (Pom's 
11). Certains sont syrnetriques. tels 
par exemple ceux qui concernent la 
gestion de 1'e'cran (de 32 S 35). 
D'autres, tels ceux des zones de 
49232 a 49249, jouent un role iden- 
tique. Nous les avons gardes dans 
cet article, car il n'est pas evident a 
prion (sauf pour les champions) que 
ces PEEKs et POKEs sont de nature 
similarre. Remarquons par arlieurs 
que les PEEKs relatik au DOS 3.3. 
comme les POKEs du meme genre, 
n'ont aucune raison de fonctionner 
pareilfement avec le ProDOS. H 



Le lecteur Micro-Expansion 1 Mega 

Vincent Plassard 



Depute un an environ, on parlait de 
ce fameux disque 1 Mega, et fatten- 
dais avec impatience cette nouveaute 
qui allait desormais agrandir conside- 
rablcment lo memoire de masse de 
mon Apple lie. Enfin eliminees. 
toutes ces manipulations de disquet- 
tes 140K, trop petites pour les fi- 
chlers un peu importants. 

Le mardi 6 mars iy»4. j ai achete un 
ensemble lecteur Micro Expansion 
G.502 chez un dislributeur Apple 
connu de tous les Lyonnais. Jl venait 
juste de le recevoir et je suis reparti 
le soir meme avec mon appareil. II 
m'a semble interessant de faire part 
aux lecteurs de Pom's de mcs pre 
mieres impressions d'uulisuteur el de 
passionne d'informatique. 

Le materiel 

L'ensemble lecteur G.502 est livre 
dans un carton assez impressionnant. 
le boitier etant entoure de plaques 
de mousse protegeant efficaceinent 
le materiel pendant le transport. L'in- 
ventaire du colis est le suivant : 

• 1 boitier integrant 1 ou 2 lecteurs 
(selon le type choisi). Le boitier 
est en bonne t61e solide, a 13 kg 
T ensemble (plus de 3 Apple lie 
...). La face avant est agrcable et 
les voyants perrnettent de visuali- 
ser le tonctionnement des lecteurs. 

• 1 alimentation (de bonne qualite). 

• 1 ventiluLeur. 



• 1 carte lnterfacc'Controleur qui 
assure la liaison entre r Apple et le 
boitier. Cette carte est impression- 
nante. mais s integre parfaitement. 
Pour les connaisseurs, elle est vrai- 
ment "chouette". 

• 1 disquette de demarrage (140 K). 
Cette disquette pennel d'initialiser 
et de formater les disquettes 1 
Mega sous le systeme d'exploita 
tion que vous utjU&ifez; II existe 
actuellement des disquettes de de- 
marrage pour DOS 3.3. 
MEM/DOS, Pascal et CP/M. Ces 
disquettes proposent ditferents uti- 
litaires propres a r utilisation des 
lecteurs 1 Mega. 

• 1 manuel d* utilisation du systeme. 
A la livraison. on m'a remis un 
manuel qui me seinblait un peu 
con f us; \ en ai fait la remarque a 
mon revendeur. Je viens de recc 
voir une nouvelle documentation 
beaucoup plus explicite. II est im- 
portant de lire ce fascicule pour 
eviter des erreurs de manipulation 
qui pourraient etre prejudiciables. 

• 1 cordon secteur (alimentation 
220V). La prise de terre est obli- 
qatoire (ne pas I'oublier). 

• 1 nappe reliant 1'interface au bot 
tier. Un detrompeur propre a clia- 
que connecteur evite tout risque 
d'erreur dans les branchements. 

Caracteristiques 
techniques 



Caracteristiques generates 

• Nbre de lecteurs par unite : 1 pour 
le modele G.501, 2 pour le mo- 
dele G 502 

• Nbre de tetes de lecture : 2 par 
lecteur 

• Nhre de pistes par face : 77 

• Nbre de pistes total : 154 

• Nbre de secteurs par piste : 26 

• Nbre d' octets par secteur : 256 

• Vitesse de rotation : 360 t/m 

• Temps de top moteur (maxi) : 1 
sec. 

Caracteristiques 
d'Enregistrement 

• Capacite non formatee : 1.604 
K. octets 

• Capacite formatee: 1.025 K. octets 

• Temps d'acces piste a piste : 5 ms 

• Temps d'acces moyen : 91 ms 

• Temps d'acces maximum : 395 

ms 

• Temps de stabilisation : 15 ms 

• Temps moyen d'attente : 17 ms 

• Vitesse de transfer! : 500 

K. bits/sec. 

Dimensions du boitier : hauteur 
15 cm, largeur 26 cm, profondeur 36 

cm. 

Supports magnetiques : type 
BASF ref. 2 HD 71/053 ou Micro- 
Expansion ref. DQ 500 H. 

MTBF (mean time between failu- 
res) : 8,000 hemes. 
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Mes impressions 
d'utilisateur 

Maintenant que vous connaissez un 
peu mieux Fensemble G.501/G.502. 
c'est-a-dire le materiel et ses caracte- 
risques. je vous livre mes impressions 
d'utilisateur. C etait d'ailleurs Fobjec- 
tif que je m'etais fixe en me mettant 
a "pianoter" cei article. 

J'ai travaille avec les IMo sous DOS 
3.3 et sous MEM/DOS. La premiere 
rerriarque que je peux faire, c'est que 
les IMo sont beaucoup plus ade- 
quats sous MEM DOS qu'en DOS 
3.3. Le ProDOS aura certainement 
une meilleure efficacite avec ces lec- 
teurs que le DOS 3.3. 

Systeme DOS 3.3 

II fauL savoir tout d'abord que, sur 
une disquette IMo. on met 7 dis- 
quettes 140K. L'equivalent d'une 
disquette 140K s'appellera VOLUME 
avec le systeme IMo. Cest deja le 
cas avec les disqucttes 140K. mais 
on rie 5*y sen* en general pas des nu- 
meros de volume. ATTENTION, le 
numero de volume qui etait utilise 
avec les disquettes 140K n'est pas 
reconnu par le systeme IMo. 

Une disquette IMo content 7 catalo- 
gues (D1....D7). Pour lire un pro- 
gramme ou un fichier qui se trouve 
sur le troisieme volume de la dis- 
quette IMo. vous devrez taper 
"LOAD nomfic.Ss.D3". En resume, 
on peut r.onsiHerer qu'avec un en- 
semble lecteur IMo, nous avons : 

- 7 drives 140K (D1...D7) avec le 
modele G.501; 

- 14 dnves 140K (D1..D14) avec le 
modele G.502. 

Le principal avantage du systeme est 
d'eviler la manipulation de disquettes 
et d avoir en permanence Faeces a 7 
ou 14 ' 



Apres avoir boote la disquette de de- 
marrage 140K. a la mise sous ten- 
sion de F Apple, le systeme est urilisa- 
ble et vous voyez apparoitre a Fecran 
le menu des utilitaires. a savoir : 
Formatage physique disquette IMo 
Initialisation des Volumes 
Tranfert Hps Programmes (le FID) 
Copie d'un Volume (cest COPYA) 
Catalogue des Volumes IMo 
Copie rapide du IMo sur un IMo 
• au r 



La copie rapide du IMo sur IMo est 
vraiment tres rapide : r2U" pour re- 
copier Fequivalent de 7 disquettes ! 

En cours d' utilisation, les temps de 
transfert entre la disquette IMo et la 
memoire de l'Apple sont semblables 
a ceux du DOS 3.3. 

Des la mise sous tension de ['ensem- 
ble lecteur IMo, le ventilateur de re- 



froidissement se met a tourner. Je ne 
peux pas dire qu'il spit vraiment 
bruyant mais ce ronron" permanent 
est penible a supporter... 

Dans Fimmediat, les logiciels tels que 
Visicalc, MulLipldii ou Apple WriLer 
ne sont pas utilisables sur disquettes 
IMo. et je le regrette beaucoup. 
Sinon, aucun problerne d'utilisation 
n'est a noter sous DOS 3.3. 

System* MEM/DOS 

Je ne sais pas si beaucoup d entre 
vous connaissent et utilisent le 
MEM'DOS. mais je 1'emploie pour 
ma part tres souvent, car il simplifie 
considerablernenl la prograrnmation 
par l'usaqe de masques et grace a sa 
manipulation des fichiers. Depuis que 
j'ai decouvert MEM DOS, je ne 
comprends pas comment ji'ai pu 
nTen passer anterieurement. Par 
contre. pour des fichiers importants. 
une disquette 140K est rapidement 
saturee: faire une recherche ou un tri 
sur plusieurs disquettes devient une 
ventable acrobatie, voire une opera- 
tion pratiquement irrealisable. 

Actuellement, avec les IMo. le pro- 
blerne est lesolu. Vous dispute* ieel- 
lement d un mega en ligne par dis- 
quette. contrairement a la disquette 
IMo sous DOS 3.3 qui coinpte IMo 
fractionne en 7 volumes. Vous saisis- 
sez les perspectives qui s'ouvrent au- 
jourd'hui aux utilibateuis. Jusqu'alors, 
pour resoudre un tel problerne. un 
disque dur etait indispensable, sans 
parler du backup necessaire pour la 
sauvegarde. 

Les utilitaires sous MEM'DOS sont 
complcts ct sans problerne apparent. 
J'ai observe une grande Vitesse 
d'execution. phenomene quon ne 
constate pas sous DOS 3.3. 

En resume, avec un Apple 'e, une 
carte 80 colonnes etendue, une carte 
MFM/DOS. et cet ensemble lecteur, 
vous pouvez realiser efficacement des 
applications professionnelles qui ne 
relevent plus d'un bricolage informa- 
tique. Cette configuration est vrai- 
ment performante pour une entre- 
prise. pour un etablissement scolaire, 
pour qui doit traiter la paye. la 
comptabilite, les plannings. la ges- 
rinn, les fichiers clients, les fichiers 
eleves, tous les fichiers... 

Conclusion 

Ce n'est pas apres deux semaines 
d' utilisation que je peux pretendre 
connaitre a fond ce nouveau materiel 
mais. demblee. je peux dire en toute 
simplicite que cet ensemble lecteur 
IMo est bien conqu et qu'il corres- 
pond a un besoin reel, L'utilisateur 
moyen a desormais la possibilite 
d'acceder a une memoire de masse 
tres acceptable et a une possibilite de 
sauveqarde adequate. 



Le marche du disque dur 5Mo risque 
d'elie louche pai ceUe uuuveaule\ 

Le prix 

Helas, le prix n'est pas a la portee de 
toules les. bourse*. 13.000 F TTC 
pour le modele G.501. 25.000 K 
pour le G.502. La disquette IMo re- 
vient a 130 F. Pout des applications 
concretes et utilitaires, ce prix sera fa- 
cilement considere commc un inves 
lissement rentable et indispensable. 
Au niveau de Famateur. il est certai- 
nement prohibitif 

Formulons Fespoir de voir un jour les 
prix baisser. mais nous payons le prix 
du serieux et de la terhnirite 
{NDLR: ... et d'un marche pour Je 
moment hexagonal.). 

Bravo pour cette realisation fran- 
chise ' Les 2Mo m'ont mordu... 

Pour la petite histoire, chacun sail 
que le week-end esl piopice pour se 
consacrer a tond a de tels essats. Ma 
femme avait eu la delicatesse et la 
gentillesse de me laisser seul daiib 
mes experiences. Ouelle ne tut pas 
sa surprise, en rentrant le soir. de me 
reLrouver avec un enorme panse- 
ment autour de la main gauche. 
Non. rassurez-vous. les 2Mos ne 
m'avaient pas "veritablement" 
mordu. c etait simplement une gros- 
siere erreur de cuisinier etourdi ... 
Pour ma punition, la Uiuluie reduit 
dans Fimmediat ma vitesse de 
frappe, mais heureusement. je recu- 
pere [acileuieitt avec me& 2Mo le 
temps que i aurais perdu en manipu- 
lation de disquettes ... 

En conclusion, les 2Mos, cest TER 
RIBLE. 

NDLR: nous devons apporter un 
bemol a cette etude enthousiaste, ou 
Von r&connaft I'esprit dynamique de 
Fanimateur du club [nfo-Manfaques 
(62 avenue Paul Santy - 69008 
Lyon). Nous n'avons pas encore eu 
Foccasion a Pom's de tester ce lec- 
teur et reservons done notre opinion 
en attendant Des que Micro-Expan- 
sion nous aura confie un materiel, 
nous vous apporterons notre opinion 
en complement 

Rappelons egalement, pour une 
meiileure analyse du marche et une 
meilleure information des utilisateurs 

masse, que la societe LEE (Paris) 
commercialise depuis quelques 
annees des lecteurs de disquettes 
souples IMo, dun prix relativement 
moins eleve mais aussi d une techno- 
logie moins lourde " (pas d alimenta- 
tion autonome, pas de ventilation.., J ; 
par contre, la habtiite' de ce lecteur 
semble inferieure. 

Vous pourrez consulter une presenta- 
tion de ces autres lecteurs dans I'arti- 
cle consacre aux Memoires de Masse 
dans le Pom's 4 ou le Hecueil No i. ■ 
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Reduction d 

Patrice Neveu 

Pom's vous a souvent propose des 
programmes pour g«?rer les pages 
graphiqucs : inversion des couleurs. 
tiansferts, operations logiques entre 
plusieurs pages, srroboscopie, etc. 
Aujourd'hui, je vous offre un ensem- 
ble de routines qui permeitent de re- 
duire une page graphique au quart 
de sa taille norrnale. 

Lg programme Basic de demonstra- 
tion Reduction au 1/4 prend une 
image stockee sur disquette et la re- 
duit au quart de sa taille en haut a 
gauche de Tecran. II utilise les routi- 
nes en assembleur suivantes : 

• Reduit Hauteur qui reduit de 
moitie la hauteur de famage; 

• Reduit Largeur fait de meme ? 
avec la largeur bien sur; 

• Moitie 1 -» Moitie 2 transfers la 
demi partie gauche de l'image a 
droite; 

• Copyleft agit sur les derni-parties 
hautes ct basses; 

• HGR2 — > HGR effectue un sim- 



image HGR 



pie transfer! entre les 2 pages; 
• HGR2+HGR2 -> HGR super 
pose les 2 pages sur la premiere. 

Hormis les 2 dernieres routines qui 
sont tres simples, quelques mots 
d'explication pour les autres ; 

- Copyleft est une routine de Jean- 
Francois Duvivier parue dans le nu- 
mero 3 de Pom's: elle est utilisee ici 
pour inverser les parties hautes et 
basses d'un ecran: 

- Reduit Hauteur balaye une ligne 
sur deux de 1' ecran 1, pat appel a 
HPOSN (module de I'interpreteur 
Applesoft en $F411 renvoyant 
Fadresse de base d'une ligne graphi- 

ue) et stocke cette ligne sur 1* ecran 

- Reduit Largeur est le module le 
plus complique de I'GnsGmble car il 
s'agit de con&eivei un pixel sur deux, 
en travaillant sur des octets ou seuls 
7 bits nous interessent et sont affi 
ches en ordre inverse . 

Une ligne graphique comporte 280 



points (pixels) soit 20x2x7. Exami- 

nons un groupe de 2x7 pixels et 

codons-les individuellempnt - 

Ecran : ABCDEFGHU KLMN 

Les octeis equivalents sont au nom- 

bre de 2 et leurs bits sont : 

Octets : *GFEDCBA#NMLKJIH 

avec * et # les bits de couleur 

Regroupons arbitrairement ces deux 

octets en un seul avec les bits : 

Octet : *NUHFDB 

Get octet apparait graphiquement 

comrne 7 pixels : 

Ecran : BDFHJLN 

et Tobjectif de ne conserver qu'un 
seul pixel sur 2 est done realise. 

Le programme Reduction infiiue 

permet de dupliquer une image en 
quatre plus petites. ou de juxtaposer 
4 images differentes sui un merne 
ecran graphique. 

Bren entendu. la notion de couleur 
rVest pas conserves ! Pour cvitcr des 
perles Irop sensibles de definition, il 
est conseille d'avoir une image origi- 
nate en HCOLOR-3 (blanc). D'au 
try part, rien n"empeche de recom- 
mencer la reduction au quart une 
nouvclle fois; cn peut ainsi obienir 
des reductions au 1/16. Difficile d'al- 
ler plus loin ! ■ 



Programme REDUCTION au 1/4 

10 HOME 

100 INPUT "NOM DE L ' IMAGE A REDUIRE : " 
- US 

140 INPUT "NOM DE L ' IMAGE FINALE ! " ; NF 
s 

990 HGR2 
1O00 HGR 

1005 REM **• GRAPHIQUE TOTAL *** 
1D10 POKF - 16302.0 
1015 REM 

1020 PRINT CHRS (4) "BL0AD 1, I1S" . AS2000" 
1040 PRINT CHRS <4>"BRUN REDUIT LARGEU 

R.OBJ" 
1O50 POKE - 16300-0 

1060 PRINT CHRS <4>"BRUN HGR2 - > HGR . OB J 

lO&b REM »»* NETTOIH PAGE 2 
1070 HGR2 

1075 REM •** BRANCHE PAGE 1 »»• 
1080 POKE 230,32 
lOtiD REM 

1090 PRINT CHRS (4) "BRUN REDUIT HAUTEU 
R.OBJ" 

1200 IF NFS < > " M THEN PRINT CHRS ( 

4> "BSAVE"NFS' , , AS4000, LS1FF8" 
1210 HOME : GET AS: TEXT 



Programme REDUCTION INFINIE 

I REM *»• REDUCTION INFINIE **» 

10 TEXT : HOME : SPEED= 255: NOTRACH 

II ONERR GOTO 990 
12 LOMEM : 32768 

20 DS = CHRS <4> 



30 DBS = DS + " BRUN" 

35 UL& = DS t "BLOAD" 

36 DSS = DS * "BSAUE" 

40 INVERSE : PRINT " DEMONSTRATION DE R 
EDUCTION D' IMAGE HGR ": NORMAL 

50 PRINT : PRINT "ALEXANDRE AVRANE 05/M 
AI/19S4 POUR POM'S" 

55 PRINT : PRINT : PRINT " REDUCTION D'U 
NE SEULE IMAGE OU DE QUATRE I MAGES 
DlfTHRENTES (1/4;? " ; : GET AS 

5fc IF AS = "4" THEN 500 

57 IF AS < > "1" THEN RUN 

99 REM **» UNE SEULE IMAGE **» 

100 PRINT ; PRINT : INPUT "NOM DE L ' IMA 

GE: ";Ils 

110 HGR? : HGR : POKE 49234.0 
120 PRINT DLSI1S" , AS200O" 
125 GOSUB 1000 
130 GOSUB 2OO0 

140 PRINT DBS"HGR«-H&R2->HGR2.GBJ" 
150 POKE 49237.0 

160 AS = , '2000<4000.5FFF": GOSUB 4000 
170 GOSUB 3000 

180 PRINT DBS"HGR*HGR2->HGR2.0BJ" 
190 POKE 49237,0 
200 HOME : GET AS 

210 TEXT : HOME : PRINT "ON REDUIT ENCO 

RE? (0/N3 " : : GET AS 
220 IF AS = "0" THEN PRINT : POKE 4923 

9,0:AS = "2000<4000.5FFF": GOSUB 

4000: HGR2 : GOTO 125 
225 GOTO 90O 

499 REM »•« 4 IMAGES DIFFERENTES **« 

500 PRINT : PRINT .* INPUT "NOM DE L'IMA 

GE 1: ";I1S 
505 HGR2 : HGR : POKE 49234.0 
510 PRINT DLSI1S" .AS200O" 
320 GOSUB 1000 
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525 AS = •'6G0CK4000.5KFK" : GOSUB 4000 

S27 POKE 49236,0: POKE 49233.0 

530 PRINT : INPUT "NOW DE L ' IMAGE 2: "; 

I2S 

535 POKE 49232,0 

540 PRINT DLS^S'^A^OOO" 

550 GOSUB 1000 

580 GOSUB 20O0 

58b AS = M 40QO<6000.7FFF" : GOSUB 4000 
590 PRINT DBS"HGR*HGR2->HGR2. OBJ'* 

600 POKE 19237.0 

610 AS = "6O0CK4O00. SFKF" : GOSUB 4000 
620 POKE 49236,0: POKE 49233,0 
630 PKiNT : INHUT "NUM DE L'iMAUE 3: 
£39 

640 POKE 49232. O 

650 PRINT DLSI3S".AS2000" 

655 HGR2 

660 GOSUB iOOO 

670 GOSUB 30O0 

675 AS - "4000<6000 .7FFF" ; GOSUB 40U0 
680 PRINT DBS"HGR+HGR2- >HGR2. OBJ" 
690 POKE 49237. O 

700 AS» = "6000 <: 4000 . 3FFF" ; GOSUB 4U00 
710 POKE 49236.0: POKE 49233.0 
720 PRINT : INPUT "NOil DE L ' IMAGE 4: ": 
I4S 

730 POKE 49232, O 

740 PRINT DLSI4S".AS2O00" 

750 HGR2 

760 GOSUB lOUO 

770 GOSUB 2UOO 

790 GOSUB 30OO 

8O0 AS • ""4000<60UO .7FFF" : GOSUB 4000 

810 PRINT DBS"HGR*HGR2->HGR2 .OBJ" 

820 POKE 49237,0: GET AS 

830 POKE 49236.0: POKE 49233,0 

KKM SAUVEGrtRUE DE L ' I MAGE *•« 



900 PRINT : PRINT : PRINT "5AUVEGARDE D 

E L' IMAGE REDUITE": INPUT "NOM CR 

ETURN SINON) : ";I2S 
910 IF I2S < > "" THEN PRINT DSSI2S", 

AS 4000 , LSI FFS" 
920 PfUNT I PRINT "ON RECOMMENCE ? iO/U) 
"•: GET AS : IF AS = "O" THEN RU 

N 

930 END 

990 POKE 2ife.O: TEXT : HOME : RESUME 

999 REM * REDUCTION — > HAUT GAUCHE » 

1000 POKE 230.32 

1010 PRINT DBS"REDUIT LARGEUR . OBJ" 
1020 POKE 49237.0 

1030 AS = " 2000 < 4000 . 5FFF" : GOSUB 4U0U 
1040 HGR2 

1050 POKE 230.32: KEM PAGk=i 
10G0 PRINT CHRS <4) "BRUN REDUIT HAUTEU 
R.OBJ" 

107U AS = 'VuOO<4000.bFFF": GDSUB 4000 
i08«J RETURN 

1999 REM * TRANSFER!' GAUCHE-DR01TE * 

2000 POKE 230,32 
201U POKE 49236,0 

202O PRINT DBS M MGITIEi->MGITIE2.GRJ M 
2030 RETUKN 

2999 REM *» TRANSFERT HAUT --> BAS *- 

3000 PRINT DLS"C0PYLEF7" 

3010 POKE 771.32: POKE 772.96: POKE 773 

. 1 : POKE 774.0 
3020 POKE 49236, O 
3030 CALL 768 
304U RETURN 

3999 REM *»« DEPLACE LES PAGES *** 

4000 AS - AS + "M ND9C6G" : FOR i = i TO 

LEN (AS;: POKE 511 * I , flSC t MI 
DS <AS,i,l;> ♦ 128: NEXT ! POKE 7 
2.0: CALL - 144: kETURN 



REDUIT LARGEUR 

Lisa 2.5 
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1 ; ##»****#«»**#**#*#*****» 
j* * 
;* CE PROGRAMME REDUIT * 
; * DE MOITIE DANS LA * 
;* LARGEUR, LA PAGE 1, * 
;* ET bNVUl LE RESULT AT « 
;* SUR LA PAGE 2. # 

S* AUTEUft : P . NEOEU * 
i* 

;««*«««#*«»#******##****» 



HPOSN 

HBASL 

HDASM 

PI L 

P1H 

P2L 

P2H 

! 
i 



LIGNE 
OCT 
0CT1 
0CT2 



EQU 


SF41 ! 


EPZ 


«24 


EPZ 


*27 


EPZ 


%6 


EPZ 


%7 


EPZ 


*8 


FP? 


49 


ORG 


»300 


JMP 


DEBUT 


DFS 


1 


DFS 


1 


Drs 


1 


DFS 


1 



jADRESSfc DE LA 
; LIGNE, PAGE 1 
; ADRESSE DE LA 
; LIGNE, PAGE 2 



;NUMERO DE LIGNE 
j OCTET RESULTAT 
i OCTETS A 
jRACCUUKCIR. 



31 


DEP 


DFS 


1 


32 


ARR 


DFS 


i 


33 








34 


DEBUT 


LDA 


**00 


35 




STA 


OCT 


36 




STA 


LI GNE 


37 


! 






38 




LDA 


#4Q0 


39 




STA 


♦C052 


40 




STA 


*C055 


41 








42 


CHERCHE 


LDA 


LIGNE 


43 




LDX 


#400 


44 




LDY 


tt*00 


45 




JSR 


HPOSN 


46 


i 






47 




LDY 


utoo 


48 




SI Y 


DEP 


49 




STY 


ARR 


50 


? 






51 




LDA 


HBASL 


52 




STA 


P1L 


53 




LDA 


HBASH 


54 




STA 


P1H 


55 




CLC 




56 




ADC 


#420 


57 




STA 


P2H 


58 




LDA 


P1L 


59 




STA 


P2L 


60 


; 






61 


CHARGE 


LDY 


DEP 


62 




LDA 


(P1D.Y 


63 




STA 


0CT1 


64 




INC 


DEP 


65 




LDY 


DEP 


66 




LDA 


<P1L>,Y 



;GRAPHIGUF TOT A I 
; PAGE 2 



Pom's rr 13 



47 
60 
49 
70 
71 
72 
73 
74 ; 
75 
74 
77 
78 
7? 

80 j 

81 

82 

83 

84 

85 

86 

87 

88 

89 5 

90 

91 

92 

93 

94 

95 

94 

*7 ) 
98 

99 
100 
101 
102 
103 
104 ; 
105 
106 
107 
108 
109 



i 

; 



ST A OCT 2 
INC DEP 

OCTETS- > 1 OCTET 

LDA #*O0 

STA OCT 

LDA OCT | 
AND **80 
CLC 

ADC OCT 
S I A OCT 

LDA OCT1 

ANf) tt*20 

LSR 

LSR 

LSR 

CLC 

ADC OCT 
STA OCT 

LDA OCT1 
AND «*UB 
LSR 
LSR 
CLC 

ADC OCT 
STA OCT 

LDA 0CT1 
AND ***02 

LSR 
CLC 

ADC OCT 
STA OCT 

LDA OCT 2 
AND #*40 

CLC 

ADC OCT 
STA OCT 



;BIT8 

i — >8 



;BIT4 

i -->3 



;BIT4 

i— >2 



;BIT2 
;-->! 



;BIT7 
, — >7 



110 


; 






ill 




LDA 


OCT 2 


112 




AND 


**10 


113 




ASL 




114 




CLC 




115 




ADC 


OCT 


114 




STA 


OCT 


117 


j 






118 




LDA 


OCT 2 


119 




AND 


***04 


120 




ASL 




121 




ASL 




122 




CLC 




1 23 




ADC 


OCT 


124 




STA 


OCT 


125 


5 






124 


LDA 


0CT2 


12/ 




AND 


tt*01 


128 




ASL 




129 




ASL 




1 30 




ASL 




131 




ADC 


OCT 


1 32 




STA 


OCT 


1 33 


i 






134 


;SAUVE 


L 'OCTET 


135 


i 






1 34 




LDY 


ARR 


137 




STA 


<P2L> ,Y 


1 38 




INC 


ARR 


139 




■LDA 


AKR 


140 




CMP 


*t!19 


141 




BEG 


CONT 


1 4? 




JMP 


CHARGE 


1 43 


3 






144 


jLIGNE 


SUIVANTE 


145 


5 






1 46 


CONT 


INC 


LIGNE 


147 




LDA 


LIGNE 


1 48 




CMP 


tt« 19? 


149 




BEQ 


FIN 


1 50 


FIN 


JMP 


CHERCHE 


151 


RTS 




152 




END 





;BIT5 

i — >6 



;BIT3 
i->5 



iBITl 

; — >4 



Recapitulation 
REDUIT LARGEUR 



0300- 


4C 


09 03 


CO 


40 


00 A? 00 


0308- 


8D A9 00 


8D 


04 


03 8D 03 


0310- 


03 A9 00 


8D 


52 


CO 8D 55 


0318 


CO AD 03 


03 


A2 


00 


AO 00 


0320- 


20 


11 


F4 


AO 


00 


8C 


07 03 


0328- 


8C 08 03 


A5 


24 


85 


06 A5 


0330- 


27 


85 


07 


18 


69 


20 


85 09 


0338- 


A5 


04 


85 


08 


AC 


07 


03 Bl 


0340- 


04 8D 05 


03 


EE 


07 03 AC 


U348- 


0/ U3 «1 


U6 


80 


06 03 bfc 


0350- 


07 03 A9 


00 


8D 


04 


03 AD 


0358- 


05 


03 


29 


80 


1 8 


4D 


04 03 


0340- 


8D 


04 


03 


AD 


05 


03 


29 20 


0348- 


4A 


4A 


4A 


I 8 


4D 


04 


03 8D 


0370- 


04 


03 


AD 


05 


03 


29 


08 4A 


0378- 


4A 


18 


6D 


04 


03 


8D 


04 03 


0380- 


AD 


05 


03 


29 


02 


4A 


16 4D 


0388- 


04 


03 


8D 


04 


03 


AD 


06 03 


0390- 


29 


40 


18 


6D 


04 


03 


8D 04 


0398- 


03 


AD 


04 


03 


29 


10 


OA 18 


03A0- 


4D 


04 


03 


8D 


04 


03 


AD 06 


03A8 


03 


29 


04 


OA 


OA 


18 


6D 04 


03B0- 


03 


8D 


04 


□ 3 


AD 


06 


03 29 


Q3B8- 


01 


OA 


OA 


OA 


4D 


04 


03 8D 


03C0- 


04 


03 


AC 


08 


03 


91 


08 EE 


03C8- 


08 


03 


AD 


08 


03 


C9 


13 FO 


03D0- 


03 


4C 


3C 


03 


EE 


03 


03 AD 


03D8- 


03 


03 


C9 


CO 


FO 


03 


4C 19 


03E0- 


03 


40 













Programme 

REDUIT HAUTEUR 
Lisa 2.5 

1 j ************************** 

2 ;* * 

3 |# CE PROGRAMME PREND UNE * 

4 j* LIGNE SUR DEUX DE LA * 

5 ;* PAGE 1 ET SAUVE SUR LA * 

6 ;* PAGE 2. * 

7 i* * 
3 ;*^**^*^*#**^#**********w*if 

9 ; 



34 

35 

34 j 

37 

38 

39 

40 

41 

42 

43 

44 

45 

44 

47 , 



10 


« 

9 






48 


11 


HPOSN 


EQU 


**-41 1 


4V 


12 


HBASL 


EPZ 


*26 


50 


13 


HBASH 


EP7 


*27 


51 


14 


P1L 


EPZ 


*4 


52 


15 


P1H 


EPZ 


*7 


53 


16 


P2L 


EPZ 


*8 


54 


17 


P2H 


EPZ 


*y 


55 


18 


LIGNE1 


EPZ 


%A 


56. 


19 


LIGNF2 


EPZ 


te 


57 


20 


1 






58 


21 




ORG 


*300 


59 


22 


1 






60 


23 


m 






61 


24 


DEBUT 


LDA 


#*00 


42 


25 




STA 


LIGNEi 


43 


24 




STA 


LIGNE2 


64 


27 


1 






65 


28 


CHERCHE 


LDA 


LIGNE1 


46 


29 




LDX 


WOO 


47 


30 




LDY 


**oo 


48 


31 




JSR 


HPOSN 


69 


32 




LDA 


HBASL 


70 


33 




STA 


P1L 


71 



LDA HBASH 
STA P1H 

LDA LIGNE* 
LDX «*O0 
LDY H*00 
JSR HPOSN 
LDA HBASL 
STA P2L 
LDA HBASH 
CLC 

ADC #*20 
STA P2H 



LDY HSQO 
□UCLE LDA <P1L),Y 

STA (P2L>,Y 
I NY 

CPY #!39 
BNb bUUCLfc 
INC LIGNE1 
INC LIGNE1 
INC LIGNE2 
LDA LIGNC1 
CMP #1192 
BNE CHERCHE 

PASSE EN PAGE 2 
POUR VOIR LE 
RESULTAT 

LDA **00 
sta sens? 

STA *C055 

RTS 
END 



50 



Pom's n° 13 



Recapitulation 
REDUIT HAUTEUR 



0300- 


A9 


00 


85 


OA 


85 


OB 


A5 


UA 


0308- 


A2 


00 


AO 


00 


20 


1 1 


F4 


A5 


031 0- 


76 


R5 


04 


A5 


27 


05 


07 


A5 


0318- 


OB 


A2 


00 


AO 


00 


20 


1 1 


F4 


0320- 


A5 


26 


85 


08 


A5 


27 


18 


69 


0328- 


20 


85 


0? 


AO 


00 


Bl 


06 


91 


0330- 


08 


C6 


CO 


27 


on 


F7 


E6 


OA 


0338- 


E6 


OA 


E6 


OB 




OA 


C9 


CO 


0340- 


DO 


C4 


Ay 


00 


8D 


52 


CO 


8D 


0348- 


55 


CU 


60 













Programme 

MOITIE 1 MOITIE 2 
Lisa 2.5 

1 i 

2 j *##<*»*»X)( K KKXMKKXXKK-XXXXK 

3 J* * 

4 ;* CE PROGRAM-IE TRANSFERE * 

5 ;* LA MOITIE DE LA PAGE 2 * 

6 ;* SUR L' AUTRE MOITIE * 

7 ;* x 

8 ;**«*-*«*********«********«* 

* ; 
10 ; 



1 1 HPOSN 


EOU 


*F41 1 


12 HBASL 


EP2 


*26 


13 HBASN 


EPZ 


*27 








15 


ORG 


$300 


16 ! 






17 


JMP 


DEBUT 


16 ; 






1 9 LI GNE 


DFS 


1 


?n OFP 


DFS 


l 

i 


21 ARR 




1 


22 ; 






23 DEBUT 


LDA 


***00 


24 


STA 


LIUNfc 


25 ; 






26 CHERCHE 


LDA 


LIGNE 


27 


LDX 




28 


LDY 


**00 


29 


JSR 


HPOSN 


3U ; 






31 


LDA 


H*O0 


3? 


STA 


OEP 


33 


CLC 




34 


ADC 


**!20 


33 


STA 


ARR 


36 ; 






37 BOUCLE 1 


i DY 


OFP 


38 


LDA 


< HBASL > ,Y 


39 


LDY 


ARR 


40 


SIA 


(HBASL) ,Y 


41 


LDA 


*$00 


42 


LDY 


DEP 


43 


STA 


< HBASL) ,Y 


44 


INC 


DEP 


45 


INC 


ARR 


46 


LDA 


DEP 


47 


CMP 


#!20 


48 


BNE 


BOUCLEl 


49 | 






50 


INC 


LIGNE 


51 


LDA 


LIGNE 


52 


CMP 


*! 192 


53 


BNE 


CHERCHE 


54 


RTS 




□5 


END 





Recapitulation 
MOITIE 1 -* MOITIE 2 

0300- 4C 06 03 CO 14 28 A9 00 
0308- 8D 03 fl3 AD 03 03 A2 00 



0310- AO 00 

0318- 04 03 

0320- AC 04 

0328- 91 26 

0330- 26 EE 

0338- 04 03 

0340- 03 AD 

348- 60 



20 



F4 



1 I 

18 69 14 

03 Bl 26 
A9 00 AC 

04 03 EE 
C9 14 DO 
03 03 C9 



A9 00 8D 

8D 05 03 

AC 0t> 03 

04 03 91 

05 03 AD 
E2 EE 03 
CO DO C3 



Programme COPYLEFT 
Big Mac 

i «##•»«**»»#****«*•»*********»**** 

Z • COPYLEFT * 

3 «****«*««***«•****«#«*******«*«*• 
4 



5 
6 


* Re«: 


Pom's 


t»3 f.,33 


7 


NOL I GN 




»oo 


8 


NB 


= 


*01 


9 


LIGNP 




♦ 02 


10 


SmVX 


_ 


*Ofl 


1 I 


SENS 


- 


»05 


12 


LION 


_ 


•2d 


13 


■HL I GN 


- 


*C2 


14 


HPAG 




*E6 


15 


HPOSN 


= 


*F41 1 


14 


HIRES1 


- 


♦ C050 


17 


HI PES2 




* CO 52 


19 


HI RES3 


= 


4C057 


1? 


PAGE J 


= 


»C054 


20 


PAGE2 


= 


*C055 


21 






22 




ORG 


*5oo 


23 








24 




JMP 


DEBUT 


25 








26 


PAGE 


HEX 


20 


77 






n ,n f a ,n , a 


28 




DFB 


0,0,0,0,0 


29 








30 DEBUT 


= 


« 


31 




LDA 


HIRESI 


32 




LDA 


HIRES2 


33 




LDA 


HIRES3 


34 








35 




LDX 


HO 


36 




STX 


SAW 


37 








38 




LDA 


PAGE I 


39 




LDA 


PAGE 


40 




CMP 


tt»40 


41 




BNE 


BOUCLE 


42 




LDA 


PAGE 2 


43 


BOUCLE 


LDA 


MO 


44 




STA 


NOLI GN 


45 




STA 


HLIGN 


46 




JSR 


HPOSN 


47 






48 




LDX 


SAW 


49 




INC 


SAVX 


bu 




1NL 


SAVX 


t>l 




LDA 


SbUU,X 


52 




btU 


UN 


33 




STA 


NB 


34 




I NX 




55 




LDA 


SEOU.X 


56 




STA 


SENS 


37 








58 


B0UCL2 


LDA 


SENS 


59 




BPL 


B0UCL3 


60 




LDA 


*192 


61 




STA 


NOLI ON 


62 








63 D0UCL3 


JSR 


TOUR 


64 




DEC 


NB 


65 




LDA 


NO 


66 




ONE 


00UCL2 


47 








68 




JMP 


BOUCLE 


69 








70 TOUR 


JSR 


CLIGN 


71 




LDY 


H»27 


72 


TOUR1 


LDA 


<LI GN> ,Y 


73 




STA 


<LIGNP> ,Y 


74 




DEY 




75 




BPL 


T0UR1 


74 








77 




LDA 


NOL I GN 


7ft 




RNF 


Trttlft 


79 




RTS 




Rfl 








81 


ri i gn 


1 DA 


1 I GN 


82 




STA 


I IGNP 


83 




LDA 


LIGN+1 



84 




STA 


1 1 GNP* 1 


R5 








84 




LDA 


NOL IGN 


87 




CLC 




88 




ADC 


SENS 


89 




STA 


NOLIGN 


90 




CMP 


HI 92 


91 




BNE 


LIGNI 


92 




LDA 


NO 


93 




STA 


NOLIGN 


94 


LIGN1 


LDA 


PAGE 


95 




STA 


HPAG 


96 




LDA 


NOLIGN 


97 




STA 


HLIGN 


98 




JSR 


HPOSN 


99 




RTS 




100 








101 


FIN 


RTS 




102 




END 





Recapitulate 


on 


COPYLEFT 


Pom's 3 p 


. 53 ou 








Recueil 1 


P- 


140 








0300- 


4C 


18 


03 


20 


00 


00 


00 


00 


0308 


00 


00 


00 


00 


00 


00 


00 


00 


O310- 


00 


00 


00 


00 


00 


00 


00 


00 


0318- 


AD 


50 


CO 


AD 


52 


CO 


AD 


57 


03?n- 


rn 


A? 


nn 


86 


04 


AD 


54 


CO 


0328- 


AD 


03 


03 


C9 


40 


DO 


03 


AD 


0330- 


55 


CO 


A9 


00 


85 


00 


85 


E2 


0338- 


20 


1 i 


F4 


A6 


04 


E6 


04 


E6 


0340- 


04 


BD 


04 


03 


FO 


51 


85 


01 


0348- 


E8 


BD 


04 


03 


85 


05 


A5 


05 


0350 


1 


04 


A9 


CO 


85 


00 


20 


62 


0358- 


03 


C6 


01 


A5 


01 


DO 


EF 


«C 


0360- 


32 


03 


20 


73 


03 


AO 


27 


Bl 


0368- 


26 


91 


02 


88 


10 


F9 


A5 


00 


0370- 


DO 


FO 


60 


A5 


26 


85 


02 


A5 


0378- 


27 


85 


03 


A5 


00 


18 


65 


05 


0380- 


85 


00 


C9 


CO 


DO 


04 


A9 


00 


0388- 


85 


00 


AD 


03 


03 


85 


E6 


A5 


0390- 


00 


85 


E2 


20 


i 1 


F4 


60 


60 



Programme 
HGR 2 -» HGR 
Lisa 2.5 



1 j *«**«****»«**«***«»*««**«•« 

2 i* * 

3 {* CE PROGRAMME TRANSFER! * 

4 ;* LA PAGF. GRAPHIGUE l->2 * 

5 ;* * 

6 | ttKtt*tt**tt*#K***-**#***XK**«M 



7 i 




8 ; 




9 


ORG *300 


10 ! 




11 DEP 


EPZ *6 


12 ARR 


EPZ *8 


13 | 




14 DEBUT 


LDAi «»O0 


13 


STA DEP 


16 


SIA ARR 


17 


LDA H*40 


18 


STA DEP+1 


19 


LDA tt*20 


20 


STA ARR+1 


21 


LDX tt'32 


22 


LOT »*FF 


23 SUIVANT 


LDA <DEP) ,Y 


24 


STA (ARR) , Y 


25 


DEY 


76 


RNF SUJUANT 


27 BLOCSUI 


INC DEP+1 


28 


INC ARR-M 


29 


DEX 


30 


BMI FIN 


31 


BNE SUILWT 


32 FIN 


RTS 


93 


END 



Pom's n° 13 



51 



Recapitulation 
HGR 2 -> HGR 

0300- A? 00 85 06 85 08 A9 40 

U308- 85 CJ/ AV 20 85 0V A2 20 

0310- AO FF BI 06 91 08 88 DO 

0318- F9 E6 07 E6 09 CA 30 02 
0320 DO TO 60 



Programme 

HGR + HGR 2 -» HGR 2 
Lisa 2.5 

2 ;**************»***#******** 

3 ;# » 



4 j * CE PROGRAMME SUPERPOSE * 

5 ; * LA PAGE i SUR LA PAGE 2 « 

6 J* 

7 j #*#»»#*#*#**»***»«*»*«***** 



8 


; 






a 
7 




UKb 


» "i A fi 


! M 


i 






1 J 


rl 






i 2 


P2 


err' 


$8 


l 3 


! 






1 4 




L L J A 


ft* IK 1 


1 5 




f 1" /S 

STA 


rl 


16 




STA 


P2 


1 / 




TAW 

TAY 




18 




TAX 




19 




LDA 


tt*40 


20 




STA 


P2+1 


21 




LOA 


t*S20 


22 




STA 


PU1 


23 


■ 






24 


nr.T 


1 OA 


(PI > ,Y 


25 




ORA 


<P2> ,Y 


26 




STA 


<P2> ,Y 



27 


I NY 


28 


BNE OCT 


2y 


INU Kl+1 


30 


INC P2+ 1 


31 


LDY n*00 


J2 


i NX 


33 


CPX H! 3-3 


34 


BNE OCT 


35 


RTS 


36 


END 



Recapitulation 

HGR + HGR 2 -> HGR 2 

0300- A9 00 85 06 85 08 A8 AA 

0308- A9 40 85 09 A9 20 85 07 

nSlfl- Rl 06 f 1 08 91 08 C8 Dfl 

0318- F7 E6 07 E6 09 AO 00 E8 

0320- E0 21 DO EC 60 



Initiation a l'assembleur (3) 

Gerard Michel 



Chose promise... Le temps semble 
maintenant venu de precise! la na- 
ture du "dernier resultat" maintes 
fois rencontre dans les deux premiers 
articles, notamment au sujet des ins- 
tructions de test et branchement 
BEQ et BNE. 

An rravers des problemes deja traites. 
il ressort que le "dernier resultat" se 
cornporte en fait comme un mdica- 
teur caracteristique du rfeultat d# la 
derniere operation effectuee par le 
processeur. Ainsi, apres LDA $18, 
nous efions capable? de savoir si l'ac- 
cumulateur contenait ou non, en 
testant la valeur du "dernier resultat" 
par BF.Q ou RNF De meme, apres 
CMP $25, le "dernier resultat" pou- 
vait nous indiquer si I'accumulateur 
et I'adresse. $25 conrenaient la meme. 
valeur; dans raffirmative. BEQ pro- 
voquait un branchement mais le pro- 
gramme continuait en sequence dans 
le cas contraire. 

Avant d'aller plus loin sur cette no- 
tion "d'indicateur". nous devons tou- 
tefois examiner rapidement la facon 
dont sont representees les informa- 
tions pour le processeur. 

La representation des 
nombres 

Pour votre Apple, la quantite econo- 
mique d'information e'est l octet. Ce 
n'est pas pour autant son langage 
"nature!" pui&qu«. comme chacun 
sait, 1'ordinateur ne dispose que de 
nombres binaires (bits) pour expri- 
mer sa pensee et comprendre la 
votre... 

Un octet se compose done de huit 
bits, soil huit chlffres ne pouvant 
prendre chacun que la valeur ou 1. 
De ce fait, 1' octet peut representor 



une valeur comprise entre 
"00000000" et "11111111". Sans 
entrer dans les details de l'algebre bi- 
naire. rappelons que le nombre 
"11111111" se convertit en decimal 
de la faqon suivante, en traitant Ees 
bits de la droite vers la qauche (du 
bit vers le bit 7) : 

<W2"0H + (1*(2 A D) + (1*(2*2)) 
+ (1*(2 3)) +, (1*<2 4)) + 
<1*(2 5)] + (1.(2 6)) + (1*(2 7)) 
= 1+ 2 + 4 + 8+16+32 +64 
+ 128 = 255 

Ceci vous explique en outre pour- 
quoi nous avons pu jadis affirmer 
que la valeur d'un octet, et done 
d'un registre ou d'une adresse-me- 
moire, dovait se situer entre et 255 
en decimal. 

Mais une question se pose mainte- 
nant : et 1 hexadecimal, dans tout 
cela ! Rassurez-vous. il n'est pas loin. 
Comme un octet peut egalement 
s'ecrire an moyen de deux chiffres 
hexadecimaux. il semble naturel de 
supposer que le chiffre de gauche 
correspond aux quatre bits de gau- 
che et celui de droite aux quatre bits 
de droite. AlnsI, "11111111" = 
"1111" "1111" = "1+2+4+8" 
"1 + 2 + 4+8" = "15" "15" = "F" 
"F" = $FF... et la boucle est bou- 
clee Cette explication n'est sans 
doute pas tres mathematique, mais 
elle suffira pour guider la suite du 
propos. 

En effet. lors de Texamen de l'ins- 
truction BEQ. nous avons evoque la 
possibilite de deplacements "neqa- 

tifs" vers le haut du programme en 
disant simplement que $FF corres- 
pondait a -1 en decimal. $FE a -2. 
et ainsi de suite jusqua $80 pour 



-128. II s'agit done de savoir par 
quel miracle un memo nombre peut 
valolr a la fois +255 et -1 ! 
L" explication reside dans la pauvrete 
de F octet en tant que quantite d'in 
formation, puisqu'il faut representer 
au moyen de huit bits seulement des 
nombres positifs ET negatifs. La 
convention adoptee en la marJere 
confere au bit le plus a gauche (bit 
7) le role particulier de "bit de 
signe" : lorsque ce bit vaut 0. le 
nombre est considere comme posirjf. 
et inversement, un nombre est consi- 
dere comme negatif lorsque son bit 7 
vaut L 

Les nombres positifs vont done do 
"00000000" a "01111111". soil a 
+ 127 ou encore $00 a $7F. tandis 
que les nombres negatifs vont de 
"10000000" a "11111111" soU 
-128 a - 1 ou encore $80 a $FF. 
L'ambiguite provicnt finalcment dc 
ce que le signe ne prSsente d'int^ret 
que si I on doit en tenir compte pour 
les besoins du programme (mcrci 
Monsieur de La Palice). $FF vaut 
toujours 255. evidemment. mais si 
Ton doit manipuler la valeur —1. il 
faut savoir que le processeur la code 
egalement au moyen de $FF. 

Mais. dire2-vous. a quoi bon se fari- 
guer avec des nombres negatifs sur 
un octet puisque la representation 
des nombres reels reclamera inevita- 
blement un systeme plus complexe 
de plusieurs octets et une codification 
du signe independante de celle de la 
valeur ? Certes, mais il n'en reste pas 
moms qu'il faut pouvoir effectuer des 
soustractions sur des nombres d'un 
seul octet, et comment calculer 
"5-4" si Ton ne sail calculer 
"5+(-4)".. 
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Additions et 
soustractions en binaire 

Les regies de Faddition sont simples : 

+ = 
1+0=0.1=1 

1 + 1=0 avec une retcnue de 1 

1 + 1 + (retenue) = 1 avec retenue 

Quelques exemples : 
00000001 + 00000001 = 

00000010 
00100000 + 00111111 = 

01011111 
11111111 I 00000001 = 

00000000 avec retenue "exte- 

rieure" de 1 

Dans le dernier exempie. la retenue 
sort de l'octet. Nous n'avons pas 5 
en tenir compte pour le resultat arith- 
metique de notre calcul sur un octet 
($FF + $01 = $00 de meme que 9 
+ 1 = en decimal si Ton ne 
compte que sur un chiffre). mais 
nous verrons plus loin que le proces- 
ses conserve la trace de ce neu- 
vieme hit exterieur. 

Abordons maintenant le probleme 
plus delicat des soustiactiuiis. 
Pour calculer 5-3. nous devons 
ajouter -3 a 5. et done determiner 
tout d'abord la representation de —3. 
La methode utilisee sappelle le 
complement a 2" et suppose deux 
etapes dont Tune, baptisee "comple- 
ment a 1", consiste a remplacer tous 
les 1 d'un octet par des et inverse- 
ment tous ses par des 1 ; 
3 = 00000011 

Complement a 1 de 3 = 1 1 1 1 1 100 
On ajoute 1 a la valeur pieeedente : 
complement a 2 de 3 = 11111101 
riotre sousLraction donne done finale- 
ment : 

00000101 + 11111101 - 

00000010 avec une retenue exte- 
rieure dont on ne rient pas 
compte. On verifie bien que 5-3 
- 2. 

Calculons maintenant (—5) + (—3) : 
5 = 00000101, don complement a 

1 : 11111010 

-5 = 11111011 

(-5) + (-3) = 11111011 + 
11111101 = 11111000 avec rete- 
nue de 1 

11111000 est un nomhre negatif (bit 
7 a 1), mais quel nombre ? Pour le 
savoir. faisons ['inverse du comple- 
ment a 2. en retirant d'abord 1 a 
notre nombre. ce qui revient a lui 
ajouter -1. soil $FF = 11111111: 
11111000 + 11111111 = 

11110111 
Complement a 1 de 11110111 = 
00001000 = 1*(2\3) = 8 
11111000 est done egal a -8 (com- 
plement a 2 de +8). * 
Une autre methode pour determiner 
a quel nombre negatif en decimal 
correspond un octet dont le bit 7 est 
a 1 consist? a 1p convertir tout 



d'abord en valeur abbolue (sans lenir 
compte du signel. puis a retirer 256 
a la valeur ainsi obtenue. lei. 
11111000 = 248, et 248-256 - 
-8. 

Tout semble par consequent aller 
pour le mieux dans le meilleui des 
mondes possibles... 

Helas. ce n'est qu'une apparence fra- 
gile ! Calculons par exemple 64 + 64 : 
64 = 01000000 

64 + 64 =01000000 + 01000000 
= 10000000 

10000000 est un nombre negatif, 
-128 plus precisement. et done 
64+64 - -128 ! 

Surprenant. n'est-ce pas Mais vous 
aurcz note que notre calcul est arith- 
m£flquement juste car. si Ton ne se 
preoccupe pas du signe. 10000000 
vaut egalemcnt +128, ce qui est plus 
convenable. Le resultat n'est qu'alge- 
briquement faux, en raison de la re- 
tenue qui sest operee du bit 6 sur le 
bit 7 en provoquant un changement 
de signe intempestif. Ce phenomene 
est baptise "debordement". 

Autre exemple de debordement . 
-127 + -62 = 10000001 + 
11000010 = 01000011 avec rete- 
nue exterieure. 01000011 vaut +67 
en decimal, d'ou resultat errone. 
Mais raisonnons une fois encore en 
negJigeant le signe : 

10000001 = 129 = $81 
11 000010 = 194 = $C2 
10000001 + 11000010 - 129 + 
194 = $81 + $C2 = 323 = $143. 
soit un resultat sur deux octets, avec 
poids fort de $01 (256) et poids fai- 
ble de $43 (67). En ne tenant 
cornptP. que de !' octet de poids fai- 
ble. la valeur +67 est done correcte. 
En d'autres termes. le debordement 
ne conduit reellement a des resultats 
faux que si le signe du resultat est 
pertinent pour ['utilisation qui doit 
£fre faite de ce resultat. C'est pour- 
quo i vous aves pu trouver dans 
Pom's de nombreux proqrammes en 
assembleur dans lesquels etaient ef- 
fectuees des additions et des sous- 
tractions sans que le proqrammeur 
semblSt se soucier de l'eventualite 
d'un debordement. Si nous en avons 
parle ici. e'est surtout parce que, au 
meme titre que la "retenue exte- 
rieure" ou le "dernier resultat = 0". 
le debordement fait partie de ces in- 
dicateurs caracteristiques que nous 
allons maintenant examiner plus en 
detail. 

Le registre d'etat du 
microprocesseur 

Comme les autres registres (accumu- 
lates ou registres d'mdex X et Y), le 
registre d'etat peut etre considere 
comme une variable interne au mi- 
croprocesseur. II s'aqit done d'un 
octet dont !e prograrnmeur n'a 



jamais a precisei le nom ou ['empla- 
cement memoire. que le micropro- 
cesseur gere automatiquement et au- 
quei certaines instructions de 
l'assembleur font directement refe- 
rence sous le nom P (au meme titre 
que A pour I'accumulateur). 
Mais chaque bit du registre d'etat 
revet une signification particuliere. 
alors que les auties leyisties soul 
plus generate ment manipules au ni- 
veau de 1' octet. Plus precisement, le 
registre d'etat doit refleter Tetat" du 
microprocesseur a Tissue de la der- 
niere operation significative effectuee 
et, de fait, c est lui qui nous rensei- 
qne sur les caracteristiques du der- 
nier resultat". Chaque bit du registre 
d'etat joue ainsi le role d'indicaleui. 
en ce qu'il conserve le statut de la 
derniere operation vis-a-vis des crite- 
res donnes comme significarifs pour 
la machine (dernier resultat nul. rete- 
nue externe, debordement dans les 
calcuh...). 

Sui les huit bits de F octet composant 
le registre d'etat, sept sont reellement 
pertinents pour le processeur de 
F Apple : 

• Bit 7 : indicateur de signe (baptise 
N dans la litterature). Ce bit vaut 
si la derniere operation donne 
un resultat positif et 1 dans le cas 
contraire (le bit 7 de l'octet conte- 
nant le resultat est alors a 1). 
Notons des maintenant que les 
bits d'etat sont positionnes selon la 
meme methode que pour les ope- 
rateurs logiques : 1 veut dire 
"vrai" (N vaut 1 si le dernier resul- 
tat est neqatif) et veut dire 
"faux". 

• Bit 6: indicateur de debordement 
(baptise V) : vaut 1 si la derniere 
operation provoque un deborde- 
ment (voir ci-dessus 1'addition 
64+64) et sinon. 

• Bit 5 : inutilise. 

• Bit 4 : indicateur de "BREAK". 
Nous en preciserons la fonction 
dans un article ulterieur. 

• Bit 3 . indicateur "decimal code 
binaire". dont nous reserverons 
egalement l'analyse pour nos pro- 
chaines rencontres. 

• Bit 2 : indicateur interruption '. 
avec meme remarque que ci- 
dessus car a chaque jour suffit sa 
peine... 

• Bit 1 : indicateur "zero" (baptise 
Z). Ce bit vaut 1 loisque la dei- 
niere operation donne un resultat 
nul et dans le cas contraire. 
Vqus subodore-z done deja que cet 
indicateur Z doit avoir quelque 
rapport avec nos instructions BEQ 
et BNE (ne vous decouragez pas 
pour autant si vous ne subodorez 
rien...). 

• Bit 0. indicateur de retenue (C 
pour les intimes!). II vaut 1 lors- 
que la derniere operation provo- 
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que une retenue et sinou. Nous 
avions dit precedemment que le 
processeur pouvait tenir compte 
des retenues "exterieures" oeca- 
sionnees par des operations sur 
des nombres- codes en un seul 
octet, au travers d'un "neuvieme" 
bit. Vous ne serez done pas surpris 
d'apprendre que e'est Tindicateur 
C qui joue ce role de neuvieme 
bit : ne vaut-il pas justement 1 
lorsqu'une retenue sort de l'octet 
et qu'un "1" doit par consequent 
etre stocke quelque part dans I' hy- 
pothec ou Toperation porterait 
sur plus d'un octet (songei a ce 
que vous faisiez a Tecole pour ad- 
ditionner 9 et 1 : "je pose et je 
retiens 1". Le processeui letient 
tout simplement 1 dans le bit C de 
Son registre d'etat). 

Le langage assemblcur autorise deux 
types d« manipulation sur les bits du 
registre d etat : test et branchement 
(voir BEQ ct BNE), mais aussi posi- 
lionnement "forc£" de certains indi- 
cateurs. Nous examinerons dans Por- 
dre ces deux types destructions. 

Test et branchement 

Nous limitons pour Theure notre 
propos aux indicateurs N (signe), V 
(debordement). Z (zero) et C (rete- 
nue). 

Deux des instructions de test et bran- 
chement nous sont d'ores et deja 
connues : BEQ provoque un bran- 
chement si "dernier resultat = 0"\ ce 
qui revient a dire que le bit Z vaut 1 
("dernier resultat = 0" est vrai). 
tandis que BNE provoque un bran- 
chement si "dernier resultat <> 0" 
(bit Z vaut 0). 

II existe de meme un couple d ? ins- 
tructions pour chacun de nos trois 
autres bits du registre d'etat 

Bit N (signe) 

• BMI (30) : branchement si negatif 
cest-a-dire si le bit N vaut 1. 

• BPL (10) : branchement si positif 
(bit N vaut 0). 

Bit V (debordement) 

• BVS (70) : branchement si 'der- 
nier resultat provoque un debor- 
dement" (bit V = 1). 

• BVC (50) : branchement si pas de 
debordement (bit V = 0). 

Bit C (retenue) 

• BCS (B0) : branchement si "der- 
nier resultat provoque une rete- 
nue*' (bit C = 1). 

• BCC (90) : branchement si pas de 
retenue (bit C = 0). 

Bit Z (zero) 

BEQ et BNE sont. bien sur. ies deux 
instructions concemGes. 



Les regies du branchement sont les 
memes pour toutes les instructions ci- 
dessus que pour BEQ ct BNE il 
Sayil loujours d'un deplacement de 
X octets vers le haut ou le bas selon 
la valeur donnee a la suite du code 
de Pinstruction. Rappelons en outre 
que e'est le microprocesseur qui po- 
sitionne tout seul scs indicateurs N ( 
V, Z et C en fonction du travail qui 
iui est demande et que nous nous 
contentons, par des instructions du 
type B... de tester la valeur de ces 
indicateurs apres les operations, afin 
de decider de ia suite des traitcments 
a effectuer. 

Puisque nous parlerons rnoins dans 
la suite de 1' article de Hndicateur V 
que des autres. precisons qu'il peut 
servir notamrnent a cornqer des re- 
sultats pour Ipsquels le signe est si- 
gnificatif (ainsi, BVS devrait alors en- 
trainer une action correctnee sur le 
signp du resultat - modification du bit 
7), et qu'il peut egalement servir de 
"drapeau" dans les sous-routines (si. 
par exemple, le bit V n'a aucune 
chance d'etre modifie a Tinterieur 
d'une telle routine, on peut lui don- 
ner la valeur ou 1 avant 1'appel de 
la sous-routine, selon le type d'appel, 
et onenter ensuite les traitements par 
des tests BVC ou BVS). 



"Forcer" la valeur des bits d'etat 

Le terme "forcer" est frpquemment 
utilise lorsquc Ton traite de langage 
machine ou d'assembleur, pour indi- 
quer que Ton impose a certaines va- 
riables caracteristiques des valeurs 
qui ne sont pas necessairement celles 
que leur donne le processpur en 
fonction des operations effectuees. 
C'est bien le terrne qui s'appitque ici 
puisque le programmeiir peut mani- 
pulcr par certaines instructions la va- 
leur des bits du registre d'etat, et ce 
independamment de toute autre ope- 
ration. 

Bit C (retenue) 

CLC (IK) ; met a le bit C 
SEC (38): met a 1 le bit G 

Bit V (debordement) 

CLV (BS) • met a le bit V 

Ce sont la les seules instructions "di- 
rectes" dont nous disposons poui 
forcer les bits du registre d'etat (du 
moins les quatre bits que nous exa- 
minons pour Pinstant). On peut de- 
pendant manipuler les autres bits par 
des moyens indirects. Ainsi LDA #$0 
met le bit Z a 1 et N a (dernier 
resultat nul mais positif). LDA #$FF 
met Z a et N a 1 (dernier resulat 
different de et negatif. puisque $FF 
= 11111111. avec bit 7 a 1. ce qui 
caracterise pour le processeur un 



nombre neydtif). De meme. ajouter 
#$40 a #$40 met a 1 le bit V ($40 
= 64 = 01000000. 01000000 
01000000 = 10000000. d ! ou rete- 
nue du bit 6 sur le bit de signe. ce 
qui posirionnera dans le cas present 
Tiudicateui de debordement a 1 en 
raison de 1'erreur au niveau du resul- 
tat : 64 + 64 - -128). 

Mais, une fois encore, un murmure 
court dans la foule : ai outer #$40 a 
#$40. certes mais comment ? Void 
la reponse. 

Addition d'un octet a un 
autre 

Le microprocesseur de votre Apple 
dispose d une instruction pour ajou- 
ter une valeur codee sur un octet a 
une autre valeur sur un octet. Le 
code mnemonique en est ADC : elle 
ajoute a Taccumulateur la valeur 
donnee apres ADC (soit sous torme 
d un nombre - #$10 par exemple - 
soit sous forme d'une variable definie 
par Tun des modes d'adressage que 
nous avons deja studies). Mais elle 
ajoute en outre au lesultal ainsi ob- 
tenu la valeur du bit C {0 ou 1). 
Pourquoi ? Tout simplement pour 
permettre les additions sur deux 
octets. Voyons tout d'abord les diffe- 
rents formats de 1* instruction ADC 
avant de revenir sur ce point. 

ADC nombre = ADC #$XX = 69 
XX fou XX designe un nombre de 
deux chiffres hexadecimaux) 

ADC contenu d'une adresse en page 
zero = ADC ADR = ADC $aa - 65 
aa (par exemple. 65 IS) 
ADC contenu d'une adresse quel- 
conque = ADC ADR = ADC $aaaa 
= 6D octet bas'oetet haut 

ADC ADR.X = ADC Jaaaa.X = 7D 
octet bas'octet haut 

ADC ADR.Y = ADC $aaaa.Y = 79 
octet bas/octet haut 

ADC adresse page zero.X = ADC 
ADR,X - ADC $aa.X - 75 adresse 

ADC (ADR X) = ADC (Saa.X) = 61 
adresse 

ADC (ADR).Y = ADC ($aa).Y = 71 
adresse 

Notez bien que c'est toujours a Tac- 
cumulateur que I'instruction ADC 
ajoute quelque chose, le resultat de 
Taddition etant lui auss»i stocke auto- 
matiquement dans Taccumulateur. 
Puisque cette addition integre egale- 
ment le bit C du reyistre d'elat. il 
iaut veiller a ce que ce dernier soit 
bien a avant ADC si Ton ne veut 
prendre en compte que la valeur de 
Taccumulateur et celle de 1 octet qui 
lui est ajoute. Comme il n'est pas 
toujours facile de savoir comment 
sont positionnes les indicateurs du re- 
gistre d'etat a Tissue des diverses ins- 
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tructions executees precedemrnent, 

I'lnstrucTion CLC peut rendre id de 
grands services. 

Supposons ainsi que Ton veuillc 
ajouter au contenu de i'adresse $18 
celui de I'adresse SDD60 et conser- 
ver le resultat cn $18. Lc programme 
realisant ce traiternent serait le sui- 
vant : 

LDA $18 {A5 18) 
CLC (18) 

ADC SDD60 (6D 60 DD) 
STA $18 (85 18) 

L' instruction CLC pourrait em? sup- 
primee si nous etions surs de la va- 
leur du bit C avanr 1" addition. 

L execution de ADC fournit un "der- 
nier resultat" significant pour le pro- 
cesseur, et le reglstre d'etat se tiuuve 
done reconfigure en fonclion de ce 
dernier resultat. Sont affectes par 
1" operation les bits : 
N : mis a 1 si le resultat de F addition 
est negatif (bit 7 de raccumulateui a 
1 apres ADC), a U sinon. 
V : mis a I si! y a debordement. a 
sinon. 

L : mis a 1 si I" addition donne un re- 
sultat nul. a sinon. 
C. mis a 1 si l'additiun deb deux 
nombres provoque une retenue exte- 
rieure, a sinon. 

Cette mise a jour de la retenue C 
permet d'effectuer des additions avec 
des nombres de deux octets, sur le 
meme principe que pour les nombres 
.ecimaux (9 + 1 = 0, et la retenue 
de 1 vient s'ajouter au ehiffre des di- 
zaines). Reprenons norre example 
prudent, en supposant cette fois 
que la valeur £ bquelle nn Hoit ajou- 
ter le contenu de I'adresse $DD60 
est stockee en $18 (poids faible) et 
$19 (poids fort) Deux solutions sont 
envisageables pour realiser Topera- 
tion. 

Programme 1 

LDA $18 (A5 18) 
CLC (18) 

ADC SDD60 (6D 60 DD) 
STA $18 (85 18) 
LDA $19 «A5 19) 
ADC #$0 (69 00) 
STA $19 (85 19) 

Apres avoir ajoute a I* octet tfadresse 
$18 la valeur de $DD60 et stocke le 
resultat en $18, on charge 1'accumu- 
lateur avec la valeur de $19. On ne 
sait pas, a priori, si le premier ADC a 
produit ou non une retenue. mais on 
sait en revanche que le bit C est po- 
sitionne en consequence. En ajoutant 
alors a Faccumulateur. sans tou- 
cher a C, on lui ajoute en fait 0+0 
s'il n'y a pas de retenue, ou + 1 s'il 
y en a une. La valeur de 1' octet de 
poids fort remise ensuite en $19 fien- 
dra done bien compte du resultat 
complet de 1' addition effectuee sur 
1' octet de poids faible. 



Si. par exemple, $18 contient #$FE 
et $19 #$03. on trouvera dans ces 
deux adressps #$FF ef #$03 apres 
1 ! operation si $DD60 contient #$01. 
mais on y trouvera #$00 et #$04 si 
$DDn0 rontient #$02 

Programme 2 

LDA $18 (A5 18) 
CLC (18) 

ADC $DDnO (6H fiO DD) 

STA $18 (85 18) 

BCC suite du programme (90 02) 

INC $19 (E6 19) 

... suite du programme 

On utilise cette fois la possibility qui 
nous est offerte de tester le bit C 
apres 1' addition sur Toctet de poids 
faible. Si C=0, il n'y a pas de rete- 
nue. 1' octet de poids fort est done 
correct et BCC nous amenera direc- 
tetnent a la suite du programme. Si 
C=l, en revanche. BCC ne provo- 
quera pas de branchement et en in- 
crernentant $19 avant de pascer a la 
suite, on aura bien retabli la valeur 
correcte du poids fort en fonction de 
la retenue qui s'y ajoute. 
Cette solution, plus eleqante. plus 
courte et plus rapide. sera preferee a 
la precedents 

Si Ton veui enfin ajouter deux nom- 
bres codes en deux octets (le premier 
en $18-$ 19 et le second en SDD60 
$DD61. par exemple. toujours dans 
l'ordre poids faible.poids fort), en 
gardant lc resultat dans le premier, le 
programme devieni : 
LDA$18(A5 18) 
CLC (18) 

ADC SDD60 (6D 60 DD) 
STA $18 (85 18) 
LDA$19(A5 19) 
ADC $0061 (60 61 001 
STA $19 (85 19) 

Ce programme ressemble fort au 
programme 1 ci-dessus. mais cette 
fois on additionne bien les deux 
poids forts, plus la retenue eventuelle 
provenant de I' addition des poids fai- 
bles. 

Soustraction d'un octet 
a un autre 

Linstruction equivalente a ADC pour 
la soustraction est SBC. Elle retire de 
Faccumulateur la valeur donnee 
apres SBC (nombre ou contenu 
d'une adresse). mais aussi i'oppose 
du bit C, e'est-a-dire si C-l et 1 si 
C=0. Le resultat est stocke dans I'ac- 
cumulateur. 

Cette prise cn compte de T oppose 
de la lelenue doit evidemmenl pei- 
mettre les souslractions sur deux 
octets. 

Considerons par exemple deux 
octets quelconques 01 et 02, dont 
on sait simplement que 02 est supe- 



rieur a Ol (sans se preoccuper de 
signe). Nous appelerons B le bit de 
ranq le plus eleve qui est a 1 dans 
02 et a dans 01 (si - 
O1-00010011 et O2-00101111. B 
est le bit de rang 5, i.e. le troisieme 
en partant de la gauche), et nous de- 
signerons par R le rang -correspon- 
dent (R=5 dans notre exemple). Sur 
la gauche de R. tous les bits de 01 
el 02. s'il en teste (si R < 7), out la 
meme valeur au meme rang. ou 1. 
On veut maintenant calculer Ol 
— 02. Pour ce faire. on calcule 
d'abord le complement a 1 de 02. 
que nous noterons CI -02. Dans Cl- 
02, D est done a 0. Lorsqu'on 
ajoute ensuite 1 (000000011 a Cl- 
02 pour obtenir le complement a 2 
de 02, note C2-02, deux cas sont 
envisageables : 

• B teste a 0. Dans ["addition de 
C2-02 a Ol. pour calculer 
01-02. on a done deux bits a 
au rang R qui "absorberon!" ine- 
vitablement toute retenue qui se 
propagerait a partir de i'addition 
des bits de rang inferieur a R (0 + 
+ retenue est au plus egal a 1. 
mais sans rctcnuc a reporter a 
gauche). Quant aux bib situes a 
gauche de R. s ils etaient a 1 dans 
02. et done dans Ol. ils sont a 
dans C2-02 : et s'ils etaienl a 
dans 02, et done dans Ol. ils 
sont a 1 dans C2-02. A gauche 
de R. on ne peut done ajoutei 
que des a des 1. sans retenue 
venant de la droito (il ne pout y 
en avoir au lany R) et. pai conse- 
quent, il ne peut y avoir de rete- 
nue a Texterieur de t' octet repre- 
sentam le resultat de 01-02. 

Exemple : 

01 = 00101011 (13 cn decimal) 

02 = 01000100 (68) : B est le bit 
de rang 6 

CI 02 = 10111011 

C2-02 = 10111100 IB teste a 0) 

Ol + C2-02 = 00101011 + 

10111100 - 11100111 (-25) sans 

retenue. 

• B repasse a 1. Ceci n est possible 
que si tous les bits situes a droite 
He R sont a 1 dans Cl-02 ou si B 
est de rang 0. Quand on ajoute 
C2-02 a Ol. on a done, au rang 
R. un dans Ol et un 1 dans C2- 
02. Une retenue pourrait ainsi se 
propager au-dela de R, si elle ve- 
nait de I'addition des bits situes a 
droite de R. Mais, si tous les bits 
en question etaient a 1 dans Cl- 
02. ils sont necessairement a 
dans C2-02 (par exemple, 
00001111 + 00000001 
00010000). A droite de R. on 
n'ajoute done que des a autre 
chose (0 ou 1) et 11 ne peut y 
avoir de retenue se decalant vers 
la gauche jusquau rang R (dans le 
cas ou B est de rang 0, le pro- 
blem*? ne se pose meme pas : on 
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ajoute 1 a au rang sans rete- 
nue). Pour les bits de rang supe- 
rior a R, meme remarque que ci- 
dessus; la encore, il ne pent y 
avoir de retenue cxterieure dans !e 
results de 01-02. 
Exemple : 

01 = 00101011 

02 - 01000000 (64) : B est le bit 
de rang 6 

Cl-02 - 10111111 

C2-02- 11000000 (B passe a 1) 
Ol + C2-02 = 00101011 + 
11000000 - 11101011 ( 21) sans 
retenue. 

En conclusion, apres la soustraction 
d'un octet 02 a un octet 01 qui lui 
est inferieur, il n'y a jamais de rete- 
nue exterieure et C est done toujours 
a 

txaminons maintenant le cas inverse, 
la soustraction 01-02 lorsque 02 
est Snferieui a Ol. B est le bit de 
rang le plus eleve (R) qui est a 
dans 02 alors que le bit de meme 

rang esl a 1 dans 01. Dans Cl-02. 
B est done a 1 et. pour C2-02. deux 
hypotheses sont toujours possibles : 

• B reste a 1. Dans I* addition 01 + 
C2-02. on trouve au rneme rang 
R un bit a 1 dans Ol et un bit a 1 
dans C2-02, rPou apparition 
d'unc retenue a reporter a gau- 
che. A gauche de R, on a toujours 
au meme rang un Han? 01 et 
un 1 dans C2-02. ou un 1 dans 
Ol et un dans C2-02. Au rang 
R+l, s'il existe, on ajoute done 1 
+■ +- retenue de 1, la retenue se 
propage en R+2. et ainsi de suite 
jusqua Pexterieur de l'octet (si 
R = 7, la retenue operee au rang R 
tombe de meme directement a 
Pexterieur de P octet) 

Exemple : 

01 = 00101011 

02 = 00010110 (22): B est le bit 
de rang 5 

Cl-02 = 11101001 

C2-02 = 11101010 (R reste a 1) 

Ol + C2-02 = 00101011 + 

11101010 = 00010101 (21) avec 

retenue. 

• B passe a 0. Ceci n*est possible 
que si une retenue s'est propagee 
de la droite jusqu'au rang R mais, 
de ce fait, elle se propaqe encore 
an moins jusqu'au rang R + l (elle 
s'arrete la si le bit de rang R+l 
est a dans Cl-02. mais elle 
continue encore si ce dernier est 
deja a 1). Supposons tout d'abord 
qu'il y ait au moins un bit a de 
rang superieur a R dans 0-02, 
qui se retouvera done a 1 dans 
C2-02. Ce bit etait a 1 dans 02, 
tout comme le bit correspondant 
dans Ol. Dans ('operation 01 + 
C2-02. on a done a ce rang 1 + 1, 
d'ou retenue vers la gauche qui se 
propagera jusqua Pexterieur de 
l'octet puisque i on ajoute toujours 



pour les autres rangs 0+1 + re- 
tenue de 1. 

Pour qu'il n'y ait par contre aucun 
bit a de rang superieur a R dans 
Cl-02, tous les bits concernes 
doivent etre a dans 02. Par afl- 
leurs, la retenue qui arrive en R 
pour mettre B a dans C2-02 
provient obligatoirement de ce 
que tous les bits a droite de R 
sont a 1 dans Cl-02. ce qui im- 
plique qu iis etaient egalement a 
dans 02. Comme B est aussi a 
par definition, tous les bits de 02 
sont nuls: 02=00000000 = 
C'est bien la seule valeur de 02 
pour laquelle Id retenue degagee 
au rang R dans C2-02 lorsque le 
bit B repasse de 1 a ne conduit 
pas fiiidlement a une retenue exte- 
rieure dans le resultat Ol + C2- 
02. soil Ol -02. 
Exemple . 

01 = 00101011 

02 = 00100000 (32) : B est le bit 
de rang 3 

Cl-02 = 11011111 

C2-02 = 11100000 (B passe a 0) 

Ol + C2-02 = 00101011 + 

11100000 = 00001011 (11) avec 

retenue. 

En conclusion, apres la soustraction 
d'un octet 02 a un octet Ol qui lui 
est superieur, il y a toujours une rete- 
nue exteneure (C=l). sauf si 02 = 

0. 

Toutes ces explications n'ont d' autre 
but que d'aider a I' analyse de Pins- 
truction SBC car. si 1' utilisation de la 
retenue C parait assez "naturelle" 
dans ADC. elle s'avere beaucoup 
moins evidente dans SBC (par assi- 
milation avec Je decimal, on s'atten- 
drail plus a retirer la retenue elle- 
meme que son oppose). Recapitu- 
lons. Si Ton soustrait quelque chose 
d'un nornbre sur deux octets, le 
poids fort du nombre doit etre dimi- 
nue de 1 si la valcur retiree de son 
poids fdible lui est superieure (si on 
calcule par exemple #$0100-#$FF 
on doit trouver #$0001 : poids faible 
= #$00-#$FF = #$01 / poids fort 
= #$01 diminue de 1 = #$00) Si 
la valeur est par contre inferieure au 
poids faible, le poids fort ne doit pas 
etre affecte par cette soustraction. Or 
nous savons maintenant que si Ton 
retire une valeur trop grande d'un 
autre octet, il n'y a jamais de retenue 
exterieure : a Tissue de la soustrac- 
tion.^ C=0. St Ton fait ensuite un 
SBC sur le potds fort, et ce indepen- 
damment dc ce que Ton met derriere 
SBC, 1' instruction retirera de toute 
fagon P oppose de C au poids fort, 
soit 1 puisque C=0, et le resultat 
sera correct. 

lnversement, si Pon retire au poids 
faible une valeur qui lui est infe- 
rieure, on aura C=l a Pissue de la 
soustraction. Un SRC sur le poids 



fort retirera de ce dernier Poppose de 
G, soit 0, le laissant done correcte- 
ment inchange. II faudrait toutefois se 
mefier du cas ou la valeur retiree au 
poids faible n'est autre que 0, car il 
n'y a pas alors de retenue exterieure 
et Poppose de C vaut 1 (on pourrait 
ainsi calculer que #$0101 -#$00 = 
#$0001 !). Heureusement, le proces- 
seur prend ce probleme en cornpte 
et positionne toujours C a 1 lorsque 
la valeur soustraite est 0. 

Reste le cas particulier de legalite 
des deux valeurs : si Pon calcule 
01-01, le resultat obtenu sera bien 

0. mais quid du bit C ? II est clair 
que dans le complement a 1 de 01 
(Cl-Ol), tous les bits qui etaient a 
dans 01 se retrouvent a 1 et recipro- 
quement. Si le bit de rang est a 
dans Cl-Ol. il sera a 1 dans le 
complement a 2 (C2-01 ): s il est a 1, 
il sera a mais une retenue se pro- 
pagera vers la gauche dans C2-01 eL 
cette retenue transformer a un mo- 
ment donne un bit a dans Cl-Ol 
en un bit a 1 dans C2-02 (sauf s'il 
n'y a que des bits a 1 dans Cl-Ol. 
ce qui revient a dire que Ol~0 ct 
nous ramene au piubleme specifique 
du zero). A un rang K quelconque. 
on aura done dans C2-01 un bit re 
venu a la meme valeui 1 que dans 

01. Les bits a droite de K (si K>0) 
seront a apres propagation de la 
retenue (ils etaient a 1 dans Cl-Ol 
et a dans Ol) : pour les rangs infe- 
rieurs a R. on ajoute ainsi 0+0. Au 
rang R. on ajoute 1 + 1, d'ou retenue 
vers la gauche qui se propagera jus- 
qua Pexterieur de l'octet resultat 
Ol-Ol. puisque. aux ranys supe- 
rieurs a R. on additionne toujours 
"0 + 1 + retenue de 1" ou "1+0 + 
retenue de 1". A Pissue de la sous- 
traction. C=l : une operation 
comme #$2450- #$50 ou 
#$24FE-#$14FE produirait done 
un resultat correct. 

Exempli; 1 ; 
Ol = 00101011 

Cl-Ol - 11010100 (bit de rang a 
0) 

CZ-01 = 11010101 
Ol + C2 Ol = 00000000 avec re- 
tenue. 
Exemple 2 : 
Ol = 01000100 

Cl-Ol = 10111011 (bitderangOa 
1) 

C2-02 = 10111100 
Ol + C2-01 = 00000000 avec re- 
tenue. 

Ces considerations sur PcuithineLique 
binaire peuvent vraisemblablement 
vous paraitre un peu trop complexes, 
surtout en comparaison avec les 
deux premiers articles d' initiation a 
Passembleur. De fait, il n'est ni inter- 
dit, ni impossible, d'ecrire des pro- 
grammes en assembieur, meme de 
grande taille et de haute ambition. 
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sans savoir ce qu'il advient. ou doit 
advenir, de tel ou lei bit a 1' occasion 
de telle ou telle operation. II suffit 
pour cela de bien assimiler le fonc- 
tionnernent des instructions et de res- 
pecter leurs regies (savoir, par exem- 
pted qu'il faut toujours faire SEC 
avant une premiere soustraction et 
que les problemes de retenue even- 
tuels seront pris en charge par le 
deuxieme SBC si Ton ne fait pas 
SEC avant). Toutefois. si vous en 
ave7 le gout et le temps, il vous sera 
benefique de creuser un peu ces 
questions, ne serait-ce que pour 
mieux cornprendre les mecanismes. 
mais aussi parce que d' autres instruc- 
tions de I'assembleur. qu'il nous reste 
encore a examiner, ne "travaillent" 
qu'au niveau du bit (de donnee ou 

du reqistre d'etat) et produisent des 
resultats que Ton comprend mal si 
Ton ne s'attache pas un tant soit peu 
au contenu des octets. 

Voici maintenant la liste des cliff e- 
rents formats de l instruction SBC. 

SBC valeur = SBC #$NN = E9 NN 
SBC adresse en page zero = SBC 
ADR = SBC $aa = E5 aa 
SBC adresse quelconque = SBC 
ADR = SBC $aaaa = ED octet 
bas/octet haut 

SBC "adresse page zero'.X — SBC 
ADR.X = SBC $aa.X = Pb aa 
SBC "adiesse quelconque".X = 
SBC ADR.X = SBC Saaaa.X = FD 
octet bas octet haut 

SBC "adresse quelconque".Y = 
SBC ADR.Y - SBC $aaaa.Y = F9 
octet bas/octet haut 

SBC (ADR.X) = SBC ($aa,X) = El 
aa 

SBC (ADR).Y = SBC ($aa).Y = Fl 
aa 

Rappelons que, comme pour ADC. 
la donnee a laquelle on retire une 
autre donnee (indiquee explicileinent 
ou obtenue par I'un des modes 
d'adressage precises ci-dessus) est 
toujouis conteriue dans le ieyislre ac- 
cumulates. 

Mis a part le bit C dont il a deja ete 
longuement question, rexecution de 
SBC affecte les memes indicateurs 
du registre d'etat que celle de ADC. 
a savoir N. V et 2. et ce exactement 
selon les memes regies. 

Sachant que SBC retire I' oppose de 
la retenue du resultat de la soustrac- 
tion proprement dite, il faut $' assurer 
que le bit C est bien a 1 lorsque Ton 
trauaille sur des nombres d'un seul 
octet ou sur les octets de poids fai- 
ble. Si un doute plane sur ce point 
au moment de proceder a 1' opera- 
tion, on utilisera 1'instruction SEC 
pour I'eliminer. 

Vous trouverez ci-apres les petite pro- 



grammes presentes precedemment 
pour ADC, adaptes au cas de sous- 
tractions par SBC. 

Exemple 1 

LDA$18(A5 18) 
SEC (38) 

SBC $DD6U (ED 60 DD) 
STA $18 (85 18) 

Exemple 2 - programme 1 

LDA $18 (A5 18) 
SEC (38) 

SBC $DD60 (ED 60 DD) 
STA $18 (85 18) 
LDA $19 (A5 19) 
SBC #$00 (E9 00) 
STA $19 (85 19) 

Exemple 2 - programme 2 

LDA $18 (A5 18) 
SEC (38) 

SBC $DD60 (ED 60 DD) 

STA $18 (85 18) 

RCS suite du programme (R0 02) 

DEC $19 (C6 19) 

suite du programme 

Exemple 3 

LDA $18 (A5 18) 
SEC (38) 

SBC $DD60 (ED 60 DD) 
STA $18 (85 18) 
LDA $19 (A5 19) 
SBC $DD61 (ED 61 DD) 
STA $19 (85 19) 

Bref retour sur CMP, 
CPX, CPY et les 
autres... 

Dans Particle precedent, nous avions 
dit que la comparaison de "quelque 
chose" avec Fun des registres du 
processeur revenait en fait a une 
soustraction virtuelle de ce "quelque 
chose" au registre concerne, avec 
positionnement du "dernier resultat" 
en consequence. II est clair mainte- 
nant que ce sont certains bits du re- 
gistre d'etat qui sont affectes par ces 
operations de comparaison. comme 
le bit Z, par exemple, dont nous 
avions deja envisage ('utilisation en 
sortie d'une comparaison par les ins- 
tructions BEQ et BNE. 

Sont egalement positionnes par 
CMP. CPX ou CPY les indicateurs N 
et C. N ne donnera toutefois une in- 
formation correcte que s'il n'y a pas 
de debordement Lc bit C est beau 
coup plus interessant pour nous : a 
Tissue de la comparaison. il est a 1 si 
le contenu du registre est superieur 
ou egal au "quelque chose", et a 
dans le cas contraire (on retrouve la 
le meme comporternent de C que 
dans les soustractions). 
En sus de Tegalite ou de I'inegalite. 
on peut done tester : 
Registre < "quelque chose" par 



Registre >= "quelque chose" par 
BCS 

Kegistre > quelque chose" par 
BEQ suivi de BCS (on traite d'abord 
Teventualite d'une egalite par BEQ et 
on ne parvient done jusqu a 1' instruc- 
tion BCS que si le contenu du regis- 
tre est bien le plus grand), 

La liste suivante donne. en regard de 
chaque instruction deja traitee dans 
les articles precedents, les indicateurs 
d'etat affectes par son execution, 
lorsque celle-ci exerce effectivement 
une influence sur lc registre d'etat 
(STA. par exemple. n'a aucune ac- 
tion sur le registre) : 
LDA : N. 2 
LDX : N. Z 
LDY : N. Z 
INX : N. Z 
INY : N. Z 
DEX ; N. Z 
DEY : N. Z 
TAX ; N. Z 
TAY : N. Z 
TXA : N. Z 
TYA : N. Z 
INC : N. Z 
DEC : N. Z 
PLA : N. Z 

Exemples d'application 
Exemple 1 

13 s'agit d'une routine d'entree et sor- 
tie dp caracteres a laquelle on veut 
donner les caracteristiques suivantes : 

- Le curseur sera un "— " clignotant. 

- Les lettras de A a Z seront affichees 
en NORMAL. 

- Les chiffres de 1 a 9 seront affiches 
en INVERSE 

- Tous les autres caracteres seront af- 
fiches en FLASH. 

- On pourra .sorrir de la routine par 
ESC. 

- On refusera en saisie tous les carac- 
teres de controls sauf RETURN et 
les Heches a droite et a gauche. 

Pour analyser cette routine, il faut 
disposer de quelques indications sur 
la table des codes-ecran de 1' Apple : 

- Le code re^u du clavier correspond 
toujours au code-ecran "mode nor- 
mal 1 ' du caractere correspondant 

- Les codes "clavier" des caracteres 
de controle vont de $80 a $9F. 

- Les codes "clavier" des lettres vont 
de $C1 a $DA. 

- Les codes "clavier" des chiffres 
vont de $B0 a $B9 et il faut leur reti- 
rer $80 poui passei aux codes 
"ecran" en inverse. 

- Les autres caracteres vont de SAO a 
5AF ($40 a retirer pour passer au 
code "clignotant"), puis de $BA a 
$BF (toujours $40 a retirer), $C0 en 
fait egalement partie ($80 a retirer 
pour le code "clignotant "). et enfin 
les codes de $DB a $DF ($80 a 
soustiaiie). Nous ne nous preoccu- 
pons pas ici des minuscules. 
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0300 
0300 
0300 
0300 
0300 
0300 
0303 
0306 
0308 
030 A 
030C 
030F 
0310 
0312 
0314 
0316 
0318 
031A 
031C 
031E 
0320 
322 
0324 
0325 
0327 
0329 
032B 
032D 
032E 
0330 
0332 
0334 
0336 
0338 
0339 
033B 
033D 



2058FC 

204803 

C99B 

F03D 

C98D 

F033 

C988 

F02F 

C995 

D006 

A424 

B128 

DO 25 

C9A0 

90E3 

C980 

BOOS 

38 

E940 
DO 18 
C9BA 
B005 
38 

E980 
DO OF 
C9C0 
F0F7 
B005 
38 

E940 
D004 
C9DB 



OUT 
ADB 
CAR 
H 

DEB 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
1 1 
12 
13 
14 
15 
16 
17 
18 

19 S5 
20 
21 
22 

23 

25 
26 
27 
28 S4 



50 



S3 
SI 



29 
30 
31 
32 
33 
34 
35 
36 

37 S2 



Examinons done ce petit proyramme. 
en commencant par la fin. e'est-a- 
dire la routine do saisie de caractercs 
situee au* liyuys 42 a 57. 
$C000 est une adresse reservee au 
caractere re$u du clavier : lorsque 
vous appuyez sur une louche, le 
code 'clavier" du caractere corres- 
pondant se trouve automatiquemcnt 
stocke a celte adresse. En decimal, 
$CO00 est egal a 49152. ou encore 
— 16384, et cettc valour doit vous 
dire quelque chose car il y est fait re- 
ference dans le manuel de l'Apple- 
soft. au chapitre conccrnant les 
PEEKs et POKE*. On vous expllque 
ainsi que vous pouvez utiliser 1'ins- 
truction X - PEEK (-16384) et tes- 
ter eiisuJUs la valeur de X: si X > 
127. une touche a ete pressee et son 
code est X. ct inversernent si X <= 
127. En binaire, 127 = 01111111 et 
les nombres cornpris entre 127 et 
255 sont done cornpris entre 
10000000 et 11111111 en binaire; 
en d'autres termes. si X est superipur 
a 127, cela revient a dire que le 
conienu de I'adresse $C0O0 fou 
-16384) est un nombre binaire ne- 
gatif en complement a 2 (bit 7 a 1). 
En assembleur, on detectera done 
I'enfoncement d'une touche en re- 
gardant si le contcnu de $C000 est 
pobitif ou negatif (touche pressee 
dans ce second cas). Le manuel He 
F Applesoft fait cgalcment reference a 
I'adresse -16368 ($C010) qu'il faut 
"toucher" d'une facon ou d'une 



ORG 
EQU 
EPZ 
EPZ 
FPZ 
JSR 
JSR 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BEQ 
CMP 
BNE 
LDY 
LDA 
BNE 
CMP 
BCC 
CMP 
BCS 
SEC 
SBC 
BNE 
CMP 
BCS 
SEC 
SBC 
BNE 
CMP 
BEQ 
BCS 
SEC 
SBC 
BNE 
CMP 



*300 

*FDF0 

♦28 

%6 

*24 

♦FC5S 

GET 

FIN 

#*8D 

ECRAN 

ECRAN 
#*95 
S5 
H 

(ADB) ,Y 

ECRAN 

#*A0 

DEB 

tt*B0 

SO 

ECRAN 

#*BA 

SI 

FCRAN 

tt*CQ 

S4 

S2 

#$40 

ECR^I 
#*DB 



033F 


B0 ED 


38 




BCS 

U w w 


S3 


0341 


20 F0FD 


39 


ECRf^J 




ni it 


0344 


4C0303 


40 




JMP 

Ul II 


DEB 


0347 


60 


41 

• * 


FIN 


RTS 

i-v i *j 




0348 


A424 


42 


GET 


L DY 


H 


034A 


Bl 28 


43 




LDA 


< ADB) ,Y 


034C 


48 


44 




PUA 
* nn 




034D 


A9AD 


45 




LDA 


tt^AD 


034F 


91 28 


46 




STA 


(ADB) ,Y 


0351 


AD00C0 


4 7 




i DA 


*C0OO 


0354 


3005 


48 




RMI 


GET1 


0354 


48 


49 




PLA 




0357 


91 28 


50 




STA 


(ADB) -Y 
GET 


0359 


DO ED 

f V w \S 


51 




BNE 


035B 


8D i onn 


5? 




STA 




035E 


8506 


53 




STA 


CAR 


0360 


68 


54 




PLA 


0341 


9128 


55 




STA 


<ADB> ,Y 
CAR 


0343 


A504 


56 




LDA 


0345 


40 


57 




RTS 





Recapitulation : 


exemple 1 






0300- 


20 


58 


FC 


20 


48 


03 


C9 


9B 


0308- 


F0 


3D 


C? 


8D 


F0 


33 


C? 


88 


0310- 


F0 


2F 


C9 


95 


DO 


06 


A4 


24 


0318- 


Bl 


28 


DO 


25 


C9 


AO 


90 


E3 


0320- 


C? 


B0 


BO 


05 


38 


E9 


40 


DO 


0328- 


18 


C? 


BA 


B0 


05 


38 


E9 


80 


0330- 


DO 


OF 


C9 


CO 


F0 


F7 


B0 


05 


0338- 


38 


E? 


40 


DO 


04 


C9 


DB 


B0 


0340- 


ED 


20 


FO 


FD 


4C 


03 


03 


60 


0348- 


A4 


24 


Bl 


28 


48 


A? 


AD 


91 


0350- 


28 


AD 


00 


CO 


30 


05 


68 


91 


0358- 


28 


DO 


ED 


8D 


10 


CO 


85 


06 


0360- 


63 


91 


28 A5 


06 


,60 







autre (par un PEEK ou un POKE) 
apres avoir lu lc clavier par PEEK 
(-16384), et ce afin de mettre la 
machine en condition de receuoir un 
autre caractere eventuel. On agira de 
meme en assembler, en adressant, 
d'une facon ou d'une autre, la case- 
memoire $C010. Ces quelques prcci 
sions nous aiderorit d comprendre le 
fonctionnement de ia routine d'en- 
tree GET. 

Lignes 42 a 44 : on charge dans I'ac- 
cumulateur le caractere situe a la co- 
lonne H dans la ligne courante dont 
I'adresse de base est donnee par 
ADR et on depose celui-ci au som- 
rnet de la pile. Cette manipulation 
des adresses dans la page TEXT doit 
vous etre maintenant familiere apres 
les deux premiers articles. 
Lignes 45 et 46 : #$AD est le code- 
ecran Hp "-" en mode normal, et 
on Taffiche a la place du caractere 
que Ton vient d'empiler. 
Eigne 47 : on regarde ce qu'il y a a 
I'adresse SC0O0 par un LDA (on satt 
par ailleurs que LDA exerce une ac- 
tion sur le bit N du registre d'etat). 
Ligne 48 ; BMI provoqueia un bidii- 
chement si le bit N est a 1, done si la 
valeur lue en $C000 est negative, ce 
qui caracterise le fait qu'une touche a 
ete pressee. Dans ce cas. on saute a 
GET1. 

Ligne 49 a 51 . on depile le carac- 
tere remplace tout a I'heure par le 
— et on Faffiche de nouvcau a sa 



place sur 1'ecran. avant de retourner 
a GET (BNE provoquera toujours le 
branchement car il n'existe pas de 
code-clavier egal a 0) On pourrait 
bien sur ne remonter que jusqu'a 
LDA #$AD. mais I'execution ^ins- 
tructions supplpmentair*?s ralentit le 
clignotement du curseur et le rend 
plus perceptible. 

Lignes 52 a 57 : une touche a ete 
enfoncee et son code se trouve dans 
l'accumulateur. STA $C010 n'a 
d'autre but qup de 'lib^rer" F Apple 
pour une autre touche. On stocke 
ensuite le caractere en CAR. on 
remet a Fecran le caractere prece- 
demment remplace par le curseur. et 
on quitte enfin la routine apres avoir 
recupere le caractere saisi au clavier 
dans Faccumulateur. 

Voyons maintenant le reste du pro 
gramme. 

Ligne 6 : equivalent a HOME. 
Ligne 7 : saisie d'un caractere par 
notrc routine personnelle. 
Lignes 8 ct 9 : #$9B est le code 
de ESC. Si Futilisateur vient clone 
d'appuyer sur ESC, on saute a la fin 
de la routine. 

Lignes 10 a 13 : si e'est un RE- 
TURN (H8D) ou une fleche a gau- 
che (#$88), on affiche. 
Lignes 14 et 15 : si ce nest pas 
une fldchc a droite (#$95). on saute 
en S5. 

Lignes 16 a 18 : nn relit \e carac- 
tere qui se trouve sous le curseur 
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pour le re-afficher (il peut paraTtre 
plus simple d'augmenter simplement 
H pour d6placer le curseur. mais il 
faudrait alors verifier par nous- 
memos que Ton ne change pas de 
ligne, ce que la routine OUT = 
SFDFO fera tres bien a notre 
place...). 

Lignes 19 et 20 : si I'accumulateur 
contient une valeur inferieure a 
#SA0. on a tape un caractere de 
controls qui se trouve done rejete 
par la demande d'une autre saisie 
(BCC DEB). 

Lignes 21 et 22 : si le code est su- 
perieur ou egal a #$B0. BCS bran- 

che en SO. 

Lignes 23 a 25 : rest autre chose 
qu'un chiffre ou une lettre : on retire 
#$40 au code pour I'afficher en 
FI ASH 11 faut absolument faire SEC 
avant SBC puisque Ton soit juste- 
ment que C = (BCS branche si 
C=l et il n'y a pas de branche- 
ment). 

Lignes 26 a 30 : pour un code >= 
#$BA, on passe en SI Sinon. rest 
un chiffre et on retire #$80 pour un 
affichage en inverse (meme remar- 
que que ci-dessus pour SEC) 
Lignes 31 a 36 : si e'est #$C0. on 
remonte a S4 afin d'obtenir un affi- 
chage clignotant (on pourrait aussi 
passer directement a S3 puisque le 
bit C est mis a 1 lorsque l'accumula- 
teur est superieur ou egal a la valeur 
a laquelle on le compare). Si e'est 
superieur a #$C0 (Fegalite est deja 
rraitee), on passe a S2 Sinon, e'est 
encore un caractere a afficher en 
mode clignotant et on retire done 
#$40 

Lignes 37 a 40 : si e'est superieur 
ou egal a #$DB. e'est un caractere 
sirue au-dessus des lettres de Falpha- 
bet et on saute a S3 pour un affi- 
chage en clignotant (on est sur que 
C=l puisque BCS provoque le 
branchement). Dans le cas contraire. 
e'est une lettre et on 1'affiche sans 
modification du code (mode normal) 
Apres manipulation eventuelle du 
code, vous aurez constate que Ton 
arrive toujours a la ligne 39. pour af- 
fichage par la routine standard du 



moniteur puis retour en debut de 
routine. 

Pour tester le fonctionnernent de ce 
progiamnie apies en avoir rentre le 
code en memoire ou 1'avoir charge a 
partir d'une disquette. il suffit dc 
taper CALL 768 a partir du BASIC. 

Exemple 2 

Ce programme peut etre un utilitaire. 
assez rudimentaire il est vrai, destine 
a vous indiquer. apres I'execurion 
d un programme en Applesott. si 
telle ou telle variable a bien ete urili- 
see, ou pour le moins inilialisee, au 
cours de cette execution. II ne suttit 
pas en effet qu'existe une instruction 
A=2 pour que la variable A soil ef- 
tectivement creee en memoire. il faut 
en outre que cette instruction soit 
reellement executee dans le deroule- 
ment du programme. L interet "utili- 
taire" de notre routine pourrait done 
consistei a detectei des sequences 
d' instructions par lesquelles on ne 
passe pas lors d un RUN et qui ris- 
quenl fort d'etre inutlles. Ce ri'esl la 
cependant qu un aspect secondare, 
le but essentiel restant toujours d'il- 
lustrer le mode d'emploi des instruc- 
tions de lassembleur que nous 
connaissons maintenant. 

II nous fout d'abord rappeler brieve- 
ment la facon dont sont stockees les 
variables en memoire II existe deux 
grandes categories de variables : 

- les variables simples, stockees dans 
line zone dont l'adresse de debut 
nous est don nee aux adresscs $69 ct 
$6A, dans l'ordre poids faible poids 
fort ($69-$6A "pointe" vers le debut 
de la zone des variables simples) et 
l'adresse de fin aux adresses $6B- 
$6C; 

- les tableaux, dont le pointeur de 
debut de zone est stocke en $6B- 
$6C (la ?one des tableaux 
commence done juste apres la zone 
des variables simples) et le pointeur 
de fin en $6D-$6E. 

Dans les zones de stockage des va 
riabtes. les noms de variables sont 
toujours codes sur deux octets selon 
les regies suivantes. qu'il s'agisse de 



tableaux ou de variables simples : 

- code ASCII standard (celui qui est 
retourne par la fonction ASC) si la 
variable est reelle : par exemple. sa- 
chant que le code ASCII de A est 65 
en decimal, soit $41. A serait code 
41 00 et AA serait code 41 41. 

- code ASCII pour la premiere lettre 
et code ASCII augmente de $80 (soit 
128) pour la seconde si la variable 
est de type ' chame de caracteres" . 
par exemple 41 80 pour AS et 41 
CI pour AA$. 

- code ASCII augmente de $80 pour 
les deux lettres si la variable est de 
type "entier" : CI 80 pour A% et CI 
CI pour AA%. 

Une variable simple occupe tou|ours 
7 octets, Pour un tableau, le nombre 
d'octets occupes est stocke en me- 
moire juste apres le nom du tableau. 

Le principe d' utilisation de la routine 
est le suivant : 

- On place aux adresses $6 et $7 les 
deux octets correspondant au nom 
de la variable examinee, codes selon 
les regies en vigueur dans les zones 
des variables, puis on appelle la rou- 
tine par un CALL 768. 

Celled va rechercher dans la zone 
des variables simples, puis dans celle 
des tableaux, la presence eventuelle 
d'une variable stockee sous le meme 
nom. Pour cette recherche, on utffi- 
sera I'adressage indirect indexe par 
Y. avec pour adresse de base les dif- 
ferent^ pointeurs de zone. Si on 
trouve dans la premiere zone, on 
rnettra 1 a l'adresse $8, et 1 a 
l'adresse $9 si on trouve dans la se- 
conde. 

- Pour afficher le resultat de la re- 
cherche, on utilise une routine du 
moniteur, commencant a I" adresse 
$F940, qui affiche a I'ecran le 
contenu des registres Y et X sous 
forme de 4 chiffres hexadecimal ix 
On voudrait done voir 0000 si la va- 
riable n existe pas du tout, 0100 si 
elle existe uniquement dans les varia- 
bles simples. 0001 si elle n'existe que 
dans les tableaux, et 0101 si elle 
existe dans les deux categories de 
variables. 
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0312 
0314 


D006 
A518 


19 

20 




BNE 
LDA 


SO 
P 


0300 
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ORG 


*300 
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C56B 


21 




CMP 


TB 


0300 


2 CI 


EPZ 


*6 


0318 


F02A 


22 




BEG 


S20 


0300 


3 C2 


EPZ 


%? 


031A 


A000 


23 


SO 


LDY 




0300 


4 VS 


EPZ 


%69 


031C 


B118 


24 




»»■* 
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5 TB 
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%m 


031E 
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0300 


6 STOP 


EP2 
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0320 


8W 


26 
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si 
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7 TVS 
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0322 


C8 


27 




INY 
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8 TTB 
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*9 


0323 
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28 




LDA 


<P> ,Y 


0300 


? P 


EPZ 


$18 


0325 


C507 


2? 




CMP 


C2 


0300 AV00 


10 


LDA 


no 


0327 


DO0D 


30 




BNE 


SI 


0302 8508 


1 1 


STA 


TVS 


0329 


E608 


31 




INC 


TVS 


0304 8509 


1 2 


STA 


TTB 


32B 


A56B 


32 




LDA 


TB 


0304 A569 


1 3 


LDA 


VS 


032D 


8518 


33 




STA 


P 


0308 8518 


14 


STA 


P 


032F 


A56C 


34 




LDA 


TB+1 


030A A56A 


1 5 


LDA 


VS+1 


0331 


8319 


35 




STA 


P+1 


030C 8519 


16 


STA 


p+1 


0333 


4C4403 


36 




JMP 


S20 


030E A519 


17 S0 


LDA 


p+1 


0336 


A518 


37 


SI 


LDA 


P 


0310 C56C 


18 


CMP 


TB+1 


338 


18 


38 




CLC 





Pom's n° 13 



\J J W T 




^9 
o ~ 






H» / 
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BCC 


<54 


033F 
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iNr 

A llW 


1 ■ A 


0341 
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S4 


.IMP 


n 

o u u 


0344 


A51 9 


44 


S20 


L DA 


p+ 1 


0344 


C54E 


45 




CMP 


9T0P+ 1 


0348 


D006 

U V %J 


44 






S2 


034A 


A3 1 8 


47 




LDA 


P 
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CMP 


STOP 


n^4F 


FH 1 1 

1 U 1 1 


49 




RFH 


FTN 


U OJU 


MUUU 


JU 


•J tZ. 


1 U I 
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I HA 

l_LT1 


\ r / ■ 1 


0354 




CO 
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CMP 


Ct 
A 




fv 1 1 
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DHL 


JJ 


U O JO 


L/ O 






T KJY 




03*59 


PI 1 ft 


55 






(p) Y 






JO 




CMP 


ro 

OA- 


Q35D 


DO OA 


^7 




RNF 




035F 


I— O »J 7 






INC 


TTB 


0341 


A40 9 

Ft U W 


59 


FIN 


LDY 


tOs 


03A3 


AAQ9 

now t 


An 






0365 


2040F9 


6 1 

W A 




JSR 

v <J r» 


^F940 


03A8 








RTS 




0369 


A002 


63 


S3 


LDY 




036B 


A518 
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LDA 


P 


034D 


18 
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CLC 




034E 


71 18 


64 




ADC 


<P> ,Y 


0370 


48 


67 




PHA 





371 C8 68 

0372 A51? 69 

0374 7118 70 

0376 8519 71 

378 68 72 

0379 8518 73 

037B 4C4403 74 



I NY 

LDA P+l 
ADC <P).Y 

ST A p+r 

PLA 
ST A P 
JMP S20 



Recapitulation : 


exempt 


s 2 






0300- 


A9 


00 


85 


08 


85 


09 


A5 


69 


0308- 


85 


18 


A5 


6A 


85 


19 


A5 


19 


0310- 


C5 


6C 


DO 


06 


A5 


18 


C5 


6B 


0318- 


F0 


2A 


AO 


00 


Bl 


1 8 


C5 


06 


0320- 


DO 


14 


C8 


Bl 


18 


C5 


07 


DO 


0328- 


0D 


E6 


08 


A5 


6B 


85 


18 


A5 


0330- 


6C 


85 


19 


AC 


44 


03 


A5 


18 


0338- 


18 


69 


07 


85 


18 


90 


02 


E6 


0340- 


19 


4C 


0E 


03 


A5 


19 


C5 


6E 


0348- 


DO 


06 


A5 


18 


C5 


6D 


F0 


11 


0350- 


AO 


00 


Bl 


18 


C5 


06 


DO 


1 1 


0358- 


C8 


Bl 


18 


C5 


07 


DO 


OA 


E6 


0360- 


09 


A4 


08 


A6 


0? 


20 


40 


F9 


368- 


60 


AO 


02 


A5 


18 


18 


71 


18 


0370- 


48 


C8 


A5 


1? 


71 


18 


85 


19 


0378- 


68 


85 


18 


4C 


44 



enons done tout cela plus en 

t 

Lignes 10 a 16 : mise a de nos 
deux drapeaux "existe / n'existe pas" 
et transfert dans une variable de tra- 
vail P (adrcsscs $18 $19) du poin- 
teur de debut de la zone des varia- 
bles simples. Le poids faible (VS) 
viendra en P ($18) et le poids fort 
(VS+1> en P+l ($19). 
Lignes 17 a 22 : on veut savoir si 
on est arrive a la fin de la rone des 

variables simples. On regarde 
d'abord si Toctet de poids fort, le 
plus significatif, P+l, est egal au 
poids fort du pointeur de debut de la 
zone des tableaux TB+1 : si ce n'est 
pas ic cas, on ne s'interesse pas au 
poids faible. Sinon, on effectue le 
meme controle pour les poids faibles 
P ct TB; S'il y a egalite. on saute en 
S20. 

Lignes 23 a 26 : on charge dans 
I'accumuiateur le code de la pre- 
miere lettre du nom stocke dans la 
zone des variables. P/P+l doit en 
effct toujours contenir Tadresse de 
debut des informations pour une va- 
riable donnee (la premiere stockee 
en Foccurrence si on commence en 
debut de zone). En prenant Y=0, on 
accede par LDA(P).Y a la premiere 
information pour la variable cn ques 
tion, soit la premiere lettre de son 
nom. que Ton compare ensuite a la 
premiere lertre du nom cherche (CI). 
Si elles sont differentes. on passe en 
SI. 

Lignes 27 a 30: meme principe 
pour la seconde lettre, en prenant 
cette fois Y=l. 

Lignes 31 a 36 : on a trouve ! TVS 
passe de a 1, suite au INC. et Ton 
met en P/P+l le pointeur de debut 
de la zone des tableaux avant de 
sauter a S20. 

Lignes 37 a 43 : on n'a pas 



trouve ! Fl faudrait done aller voir ce 
qu'il en est pour la variable stockee 
suivante, s'il y en a encore. Pour ce 
faire, nous devons mettre a jour 
notre pointeur de debut d'informa- 
tfoiis pour une variable. P/P+l. On 
retrouve la un example typjque d 1 uti- 
lisation de ADC : on ajoute 7 au 
poids faible P (la variable que nous 
venons de traitor oeciipe 7 octets et 
la suivante eventuelle commence 
done 7 octets plus loin), si cette addi- 
tion ne produit pas de retenue exte- 
ricurc (BCC) on laisse le poids fort 
inchange\ sinon il doit etre incre- 
mente. On retourne ensuite au debut 
dc la recherche, en verifiant tout 
d'abord que Ton n'est pas encore cn 
fin de zone (on passe a la recherche 
dans la zone des tableaux si le test 
est positif), 

Lignes 44 a 49 : on va maintenant 
chereher dans les tableaux. On re- 
garde de suite si la zone des tableaux 
n'est pas terminee (P+l = STOP+1 
et P = STOP). Si eile Test, on passe 
a FIN. 

Lignes 50 a 57 : meme principe de 
recherche du nom que precedem- 
ment A partir du pointeur sui le 
debut des informations, Y=0 nous 
donne acces a la premiere lettre du 
nom stocke et Y=l nous donne 
acces a la seconde. 
Lignes 58 a 62 : on a trouve ! TTB 
passe de a 1. puis on charge Y et 
X respectivement avec TVS et TTB 
pour obtenir laffichage voulu par 
$F940 avant de quitter la routine. 
Lignes 63 a 74 : on n a pas 
trouve ! La encore, il faut mettre a 
jour le pointeur de debut des infor- 
mations pour la variable suivante. 
mais e'est un peu plus complexe que 
pour les variables simples, car le 
nombre d'octets a ajouter n'est pas 
une constanre. Nous savons seufce- 



ment qu'il se trouve derriere les deux 
lettres du nom, daito l'oidie poids 
faible/poids tort, et nous devons utili- 
ser la meme technique d'adressage 
pour le lire. Pour Y— 2. on recupeie 
le poids faible du nombre d'octets 

occup«s par le tableau, que I on peut 
ajouter a P par ADC. II ne faut pas 
toutefois ranger de suite le resultat en 
P car on modifierait ainsi l'adresse- 
base de notre adressage et nous ne 
pourrions plus aller lire le poids fort 
du nombre d'octets. qui est recupe- 
rable avec la valeur 3 pour Y mais 
sous reserve que l adresse-base soit 
toujours correcte. C'est pourquoi on 
ernpile provisoirement le resultat du 
calcul apres ADC. On peut alors lire 
le poids fort du nombre d'octets et 
Tajouter a P+l par ADC (sans CLC 

prealable cette fois puisqu il peut y 
avoir une retenue provenant de Tad- 
dition precedents a prendre en 
compte). Le resultat de I" addition des 
poids forts est remis en P+l. celui 
de 1' addition des poids faibles est en- 
suite retire du sommet de la pile et 
remis en P : le pointeur est a jour et 
Ton retourne au debut de la proce- 
dure de recherche. 

Pour utiliser cette routine, la me- 
thode la plus simple nous semble 
eLre la suivante : 

- Apres la fin d" execution du pro- 
gramme Applesoft, passer en moni 
teur par CALL -151. 

- Faire un BLOAD du code-objet de 
la routine s'il ne se trouve pas deja 
en m^moire. 

- Mettre aux adresses $6-$7 le code 
du nom de la variable cherchcc (en 
tapant par exemple 6: 41 CI "Re- 
turn" si vous vous interessez a ia va- 
riable AA$). 

- Lancer la routine par 300G suivi de 
"Return ". 
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S programmer 
un ordinateur est 
I devenu pour vous 
un loisir, un plaisir... 
une passion, sachez que LIST a ete cree 
pour vous. LIST vous aide a tirer davantage 
de votre materiel, a vous perfectionner 
dans la conception des programmes 
qui "tourneront" sur votre machine. 
LIST vous initie aux langages informatiques 
et selectionne les meilleurs livres pour 
progresser. LIST vous informe de Pactualite 
et vous fournit trues, astuces et idees 
pour mieux programmer... 
Pour etre sur de ne rater aucun numero 
et pour recevoir LIST chez vous, 
abonnez-vous! 




BULLETIN 
D'ABONNEMENT 

a retourner a LIST 
(service abonnement) 
du Colonel-Fabien, 
Cedex 10 




2 oFche* 



Code postal:! I I i Li Pays: 



Veuillez m'abonner pour 10 numcros au prix 
avantageux de 160 F* au lieu de 200 F. Je fais ains 
une economie de 40 F sur le prix dc ventc au nur 
J© joins mon reglement indispensable fibelle 
a Pordre de LIST 



* Belgique : 1 330 FB ; Suisse : 50 FS ; Canada : 30 $C; 



Le BASICIUM 

Gerard Michel 



Pom's vous propose sous ce nom 
une disquette regroupant un certain 
nombre de routines et d'utilitaires 
destines a faciliter la gestion d' ecran 
et la saisie de donnees realisees par 
vos programmes en Applesoft. 

Le BASICIUM reprend sous une 
forme plus elaboree et plus integree 
la gestion de masques et 1' INPUT ge- 
neralise dp tableaux deja presents 
dans ces pages, completes par des 
instructions de gestion de messages. 
II permet notamment une prepara- 
tion independante des operations de 
saisie-clavier. d'affichage et d'impres- 
sion, et une: reduction de la taille des 
programmes Applesoft au moyen 
d'lnstructions synthenques. 

Ainsi. le petit programme liste ci- 
apres a titre d'illustration suifit pour 
realiser les traitements suivants : 

• Affichage dc l'ccran de presenta- 
tion ECRAN 1. 



• Saisie de trois groupes de valeurs 
dans un tableau intermediate Z$. 
a Pinterieur du cadre donne par 
ECRAN 2, avec tabulation, 
controle sur la longueur, verifica- 
tion d'un type alphanumerique 
pour les valeurs de la premiere co- 
lonne et numerique pour celles de 
la secondc, emplacement dune 
zone a 1 autre dans les deux 
sens... 

• Hemande de confirmation apres 
chaque ecran de saisie, avec 

controle d'une reponse ou N. et 

modification dans la negative. 

• Consultation a 1' ecran des trois ta- 
bleaux, avec possibilite de hard- 
ropy SUr demande dans la rnesure 
ou Pirnprimante est d^claree en 
service. 

• Restitution des donnees sur papier 
sous la forme de Fetat TABLEAU. 

Dans la liste du programme, les ins- 
tructions du BASICIUM sont repe- 



rees par le cataclere "]" Ce systems 
est congu pour un Apple lie ou un 
Apple 11+ 48K. II est compatible 
avec le DOS et toutes les instructions 
"standard 1 ' de P Applesoft. 

Les differents utiliraires. masques pt 
routines ont egalement ete adaptes 
pour une utilisation avec un Apple 
tie equips de la carte 80 colonnes 
Apple lie. On peut oinsi disposer 
d'un BASICIUM "80 colonnes" dote 
des memes possibilites et instructions 
que la version 40 colonnes (utilisa- 
tion de masques, de tableaux de va- 
riables, hard-copy, impressions para- 
mctrccs. gestion de messages...). 
Cette seconde version est disponible 
sur la meme disquerre 

Pom's vous propose Fensemble du 
systeme au prix de 150 francs, docu- 
mentation comprise. 



Ecran 1 

***# ***# *#** #*# *#*« *¥* 

****** * # * * 

***** » * * 

***** * * * 

***** **** **** * * * 

# » # * »** * 

* » # * ***** 
***** * * **** *** **** 



* * 
** ** 

* *# * 



**** * 



***************************** 
*======— 



*+^ 



=+* 



++* 

*+♦ EXEMPLE D'UTILISATION ++* 
* + + ++* 

*♦ + ================ + * 

*==B==^ ^^===== ===== * 

******* *********************** 



POUR POM'S 



Programme de demonstration 
BASICIUM 

10 TEXT : HOME 
20 HIMEM: 34680 
25 BL* = ■ 

30 D» = CHR* <4):D1* = CHR* (13) + 0*: 
PRINT D* a BLOAD POBAS-VAR" i POKE 
37171, PEEK (43634): POKE 371?2, 
PEEK (43635): PRINT Dfc'BLOAD POBA 
S-B't POKE 37254, PEEK (43634): P 
OKE 37255, PEEK (43635) 

40 DIM Z*<13) ,Y*<5) ,22*0,13) 





Ecran 2 




✓ ////// 
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/ V ^ i i #■ > / > iii iii iii iii 

TABLEAU DE DONNbbS 


! I ! 


UALEUR ■ I ' UALEUR 




! ! 


" 1 1 




! 2 ! 


" 3 ! 




' 4 ! 


■ 5 ! 




! 6 ! 


• | 

" 7 1 




1 8 ! 


" 9 ! 

i 




! 10 ! 


- 1 1 ' 




! 12 ! 


M3 ! 







50 FOR 1=0 TO 2 : READ ME*( I > : NEXT : 
GOTO 70 

60 DATA SAISIE CONFI RMEE , ' RETURN"' OU " 
?' POUR HARD-COPY, I MPR I MANTE BRAN 
CHEE 

65 VTAB 23: PRINT Dl*"PRttl": RETURN 

70 sIAll FOR Z = 1 TO 5000: NEXT :NS = 1 

80 :3A2:3I2: IF PEEK (6) THEN 70 

90 : JQME0 : IF PEEK (6) THEN 110 

100 :JMZ: IF PEEK <6) THEN 70 

105 GOTO 90 

110 FOR I = TO 13:Z2*(NS,I) = 2%( I) : 3 
F: NEXT :NS « NS * 1: I F NS < 4 T 
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HEN 80 

120 FOR NN = 1 TO 3: FOR I = TO 13;Z* \60 

CI) = 7?4(NN,I): NEXT : ] P2 : 3 RME 1 : 
IT NOT PEEK <«s> THEN 140 
130 :J0ME2: IF PEEK <6> THEN POKE 34,2 
4: G09U9 45 : ] H : PRINT Di* " PR*0" i 
POKE 34,1 :3A2 
140 NEXT :DQME2: IF NOT PFFK C4> THFN 

TEXT : HOME : END 170 
150 :JA3: GQSUB 65 : ] CA : ] CE : ] CB : 3 CE : ] CF : ] 

CD : ] CG s 3 CD : ] CF : 3 CD : PRINT D$"PR«0 180 



■ : 3A3 

FOR I = TO 12 STEP 2: FOR J = T 

O 4 STEP 2: J J = J + < J < 2> - < J 
> 2>:Y*<J> = ZZ*< JJ, I > :Y*< J + 1) 
= ZZ*<JJ,I + 1):Y*(J) = RIGHT* ( 
BL* + Y*< J> , 13> :Y*< J t t) ■ - RIGII 
I* (BL* + Y*<J + 1),10):3F: NEXT 
: 3PY 

GOSUB 65;3CC; PRINT D* ' PRttO " : 3 A3 : N 
EXT 

GOSUB 65:3CD:3CA: PRINT Dl*"PRttO" 



Tableau 

******************* ************** ************** ******************************* 



* * * * 

* SAISIENOl * S A I S I E NO 2 * S A I S I E NO 3 * 

* * * * 
* * * * 

* ! * ! * ! * 

* VALEUR 1 ' VALEUR 2 * VALEUR 1 1 VALEUR 2 * VALEUR 1 ! VALEUR 2 * 

* ! * ! * ! * 
* * * * 

* ! * ! * ! * 

* VALEUR 1 00Q*VALEUR - T2! 000 . 22*VALEUR - T3 ! 000.33 * 

* VALEUR 1' 11 i *VALFUR 1 - T2' U 1 . 22*UALEUR 1 - T3 ! 1 1 1 . 33 * 

* VALEUR 2! 222*VALEUR 2 - T2 ! 222 . 22*VALEUR 2 - T3 ! 222.33 * 

* VALEUR 3! 333*VALEUR 3 - T2! 333 . 22*VALEUR 3 - T3 ! 333.33 * 

* VALEUR 4! 444*VALEUR 4 - T2! 444 . 22*VALEUR 4 - T3 ! 444.33 * 

* VALEUR 5! 555*VALEUR 5 - T2! 555 . 22*VALEUR 5 - T3 ! 553.33 * 

* VALEUR 61 64<s*VALEUR 6 - T2! 644 . 22*VALEUR 6 - T3 ! 666.33 * 

* ! * ! * ! * 



Micro-informations 
Jean-Michel Gourevitch 



NDLR : tous les prix en francs indi 
qu&s dans cex article sonr TTC. sauf 
specification contraire. Chaque fois 
que les coordonnees d'un fournisseur 
sont connues, nous Ies iridiquons en 
fin d'arHcle. Inutile par consequent 
de nous appeler pour les demander 
au telephone. Merci. 

En vedette : les logiciels integres. 
C-est vrai, dans la galaxie micro-in- 
formatique, on ne jure plus que par 
les fenetres et les programmes inte- 
gres. A preuve. le succes de Lotus 1- 
2-3, un logiciel pas specialement bon 
marched installe en Tete dans la liste 
des best-sellers Seulement, jusqu'a 
aujourd'hui. pour travailler avec un 
de ces programmes integres. ll fallait 
disposer de 16 bits, et done d'un 
IBM PC/XT ou compatible. Rejouis- 
sons-nous, voici que r Apple fi ouvre 
lui aussi les fenetres. 

Des fenetres pour 
1' Apple // 

Avec tout d'abord Appleworks, ne- 
cessitant un Apple lie ou He avec 



128K, et disponible aussi pour FAp- 
pie /V sous le nom de "3 E-Z 
Races" .. Avec Appleworks, on nest 
pas tout a fait dans I'inconnu. Cest 
la reunion de trois programmes en 
un : un traitemenr de rexte.. une base 
de donnees et un tableur. Le table ur 
ne depaysera guere les utilisateurs de 
Visiealc, dont les formules de calcul 
sont fort voisines. La base de don- 
nees a un air de deja vu. Et pour 
cause, car il s'agit de Quick File //. 
Son auteur, Rupert Lissner, est aussi 
celui d'Appleworks. Seul le traite- 
ment de textf? est ineciit Une de ses 
nouveautes est. quant a elle. plus ge- 
nante : les options d'impression sont 
formulees en inches et non plus en 
colonnes. II y a des calculatrices qui 
vont chauffer... 

Premier avantage de ce programme 
exceprionne.l : sa facilite rV utilisation 
Les commandes sont en effet tes 
merries pour toutes les operations 
importantes sur les rrnis applications 
La pression simultanee des touches 
"Pomme ouverte*' et *'H" permet 
une recopie "hard" de Vecran sur 



imprimante. Et des tableaux explica- 
te sont accessibles dans chaque ap- 
plication avec "Pomme ouverte" et 
"?". Plus besoin de documentation ! 

Deuxieme avantage, le plus impor- 
tant, c est ['integration. On peut par 
exemple commencer une lettre avec 
le Iraiteriient de texte, allei cheicher 
un tableau cree avec le tableur. reve- 
nir a la lettre et y inserer le tableau. 
On peut encore interrompre la redac- 
tion d'un rapport, presser "Pomme 
Ouverte-Q", et aller chercher une 
note deposee anterieurement sur le 
"desktop" (le plan de travail) et, une 
fois la note consultee, revenir au rap- 
port piecisement la ou on Tavait 
quitte. On peut meme utiliser des ta- 
bleaux crees avec Visiealc ou des 
textes ecrits avec Applewritei (a 
condition de Les avoir convertis en 
ProDOS a 1'aide de la disquette utili- 
taire ProDOS. car Appleworks est 
ecrit pour ce systeme d' exploitation). 

Particulierement remarquable, la pre- 
sence de nombreuses securitcs qui 
permettent d'eviter d'ecraser un dos- 
sier par inadvertanre (romme je 
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viens de le faiie avec It debut de cet 
article en tapant en Applewriter Ctrl- 
S au lieu de Ctrl-L !}. Ainsi, quand 
on choisit P option de quitter le pro- 
gramme. Appleworks affiche "Do 
you really want this ?" (Le voulez- 
vous vraiment ?) et n'acoepte la 
commande qu'apres un "Yes" expli- 
cits. Appleworks est a coup sur Tun 
des premiers de ces programmes qui 
rendront la vie plus facile a tous les 
utilisateurs de micros. 11 est vendu 
aux Etats-Unis 395 dollars et sera 
traduit et vendu par Apple. 

Sortie dans sa version francaise a 
Apple Expo, Jane transforme votre 
Apple //c ou //e en mini-Macintosh, 
avec avant tout le souci d'etre facile- 
ment utilisable par. tous, a Paide 
entre autres du ceiebre "couper et 
coller" qui fait le succes du Macin- 
tosh. Jane offre les programmes Ja 
neWrite, JaneCalc et JaneLlst en un 
programme integre pouvant fonction- 
ncr avec la souris Apple, la souris 
Arktronics, un Joystick ou le Koala- 
pad. Bien entendu. non seulement 
les informations peuvent passer 
d'une application a 1' autre, mats les 
trois logiciels-en-un uulisent la meme 
syntaxe autant que possible, ce qui 
reduit bien evidemment le temps 
d'apprentissage. Les importateurs de 
Jane ont en outre bon gout, ce qui 
ne gache rien ; leurs holesses etaient 
manifestement parmi les plus mi- 
gnonnes a Apple Expo ... Jane, ainsi 
d'ailleurs qu' Appleworks. fera pro- 
chainement Fobjet d'un banc d'essai 
approfondi dans Pom's. 

Jane est fournie dans un dossie r ri- 
gide : avec un manuel detaille et qua- 
tre disquettes : Demo, Systems, Data 
et Help. Ces disquettes sont de cou- 
leurs differentes, ce qui facilite leur 
reperage. Initialement prevue poui 
fonctionner seulement avec la souris 
Arktronics, Jane utilise a present les 
souris Apple //c et //e, et se vend 
done separement de ces outils. Ceci 
a permis de baisser son prix a moins 
de 1.500 FT. 

Selon le meme principe, ARTSCI 
propose aux Etats Unis "The Magic 
Office System". II s'agit d'une 
combinaison de Maqic Window. Ma- 
giCalc et Magic Words, permettant 
de 'couper et coller" (Pexpression 
fait aujourd'hui fureur dans le lan- 
gage des micros) des informations 
entre les programmes . un tableux, 
un traitement de textes et une base 
de donnees classiques. 

Meme chose ou prcsque avec "4 in 
1", qui utilise un lanyaye commun et 
des procedures identiques pour un 
seui programme et quatre applica 
tions. Une production de Softsmfth. 
vendue 129 dollars. 

En FrancP, BIP importe "The 



Bridge", qui permet de faire le pont 
entre un fichier PF5. un traitement 
de texte (Applewriter ou Magic Win- 
dow) et un tableur (Magicaic ou Visi- 
calc). Pnx : 506 F HT. 

Et en Grande Bretagne. Dark Star a 
congu une carte s'inserant dans un 
des slots de I' Apple //e, la Snapshot 
Shuttle, qui permet d'interrompre 
un programme par unc pression sur 
un interrupteur, de faire tourner un 
autre programme, puis de revenir en 
actionnant a nouveau Pinterruptcur 
au premier programme, au point 
exact ou on Pavait laisse. L' utilisation 
du Snapshot exige au moins un lec 
teur el 128K de memoire. Prix : 115 
livres. 

Plus classique 

II y a encore de la place pour les lo- 
giciels non integres. A preuve Epis- 
tole, un traitement de tcxtc francais, 
qui calcule (utile pour factures. devis, 
...), dispose d'un mailing integre et 
permet Pintegration dc tableaux crocs 
avec Visicalc, Multiplan ou Magicaic. 
La demiere edition de ce logiciel pro- 
pose par Version Soft est realisee 
sous PioDOS. Prix : 2372 F. 

Quant a Homeword, e'est un traite- 
ment de textes utilisant cette autre fa- 
cilite de la micro-informatique : les 
icones. Le bas de 1' Scran est lllustre 
de d ess ins representant les applica- 
tions. Pour une utilisation domesti- 
que r Homeword est parti culierement 
agreable Comme pour tous les logi- 
ciels non encore Francises, attention 
aux accents ! Homeword est congu 
par Sierra On Line et vendu outre- 
Atlantique pour 70 dollars. 

Pour les amateurs rfexolisrne, il 
existe aussi un traitement de texte en 
chinois dote de 400 caracteros d'un 
vocabulaire de base, avec possibilites 
d'extension. Realise par Dune Asso- 
ciates; prix : 70 dollars. 

Pour les applications "serieuses", on 
peur relier a I" Apple II un disque dur 
Intec 505 (10 megas de capacite) a 
2700 livres, ce qui n'est pas donne. 
Couteux eqalement, "the Genius" de 
Micro Display Systems, un moniteur 
permettant d afficher une page en- 
tiere de texte : 57 lignes de caracte- 
res de 7x12 pixels, disponible en noir 
et blanc. vert ou ambre. Livre avec 

une carte d'interface (a placer dans 
le slot 3), ce genie permet une utili- 
sation plus complete de P Apple au 
bureau. Prix : 1250 dollars. 

Des imprimantes 

Decidcment, Apple ne delaisse guere 
le terrain de t impression. A la fin de 
Pete sortira la Scribe . Concue 
comme adjonction a 1' Apple //c, la 
Scribe ne coutera que 299 dollars, et 
imprimera en couleurs. Eh oui, en 



couleurs, grace a un ruban et selon 
le principe du transfert thermique. La 
Scribe imprimera sur n* importe quel 
papier. Un prix rres attractif. mais des 
rubans onereux qui la rendent peu 
adaptee a une utilisation intensive. 

Autre nouveaute : la Think Jet de 

Hewlett Packard. Portable, a jet 
d'encre, imprimant des caracteres en 

12 langucs, avec en outre des posst 
bilites graphiques. Et surtout peu 
bruyante (la tete d"impression ne 
touche jamais le papier). Prix de 
vente aux USA : 500 dollars. Dispo- 
nible en France a la fin de I'annee. 

Vu a Apple Expo : des imprimantes 
Canon presentees par ASAP, dans 
differents registres. Les matncielies 
avec la PW 1080A (80 colonnes, 
160 cps) a 5.600 F HT et la PW 
1156A (156 colonnes. 160 cps) a 
8 000 F HT Une imprimante a jet 
d'encre couleur, modele PJ 1080A, 
80 colonnes et 37 cps. a 7.500 F 
HT. 

A remarquer encore une interface 
serie. done utilisabte puui l ! Image wri- 
ter d' Apple, permettant en appuyant 
sur une touche speciale toute recopie 
d'ecran. c'est la Print It de Text- 
Print, vendue 199 dollars. 

Enfin. un logiciel particulierement in- 
teressant, concu notamment pour 
I'lmagewriter. permet d'imprimer 
n'importe quelle image ecran de 
r Apple, en couleurs, et en zoomant 
sur des details. C'est le Printogra- 
pher de Roger Wagner Publishing 
Inc., a 40 dollars. 

Un Apple a tout faire 

Jadis. il fallait acheter une carte Z80 
pour faire tourner des programmes 
CP/M et, parfois, on vous offrait le 
logiciel Desormais, c'est Mirropro. 
Pcditeur dc Wordstar, qui offrc aux 
Etats Unis une carte CP/M a tout 
acheteur dn plus r.elehre Hpr traite- 
ments de texte ! Avec P Apple, c'est 
vrai, on peut tout faire : connaitre 
Pheure grace a la carte Time Kit de 
Glanmire (un tout petit circuit qui 
s'enfiche sur la prise de jeux), ven- 
due 1150 francs par Micro-Periph 
(compatible ProDOS et Pascal), ou 
g6rer un carnet de rendez-vous avec 
Time Trax, un systeme de "gestion 
du temps" livre avec un module hor- 
loge. Une creation de Creative Pen- 
pherals Unlimited vendue 100 dol- 
lars. 

On peut aussi evaluer avec PApple 
sa vie de couple. "Friends or Lovers" 
de Softsmith Corp doit permettre aux 
couples "d'explorer leur relation". 
Les impetrants peuvent determiner 
siis partagent les merries interets. 
Tout ga poui 30 dollars, c'est vrai- 
ment donne. moins cher meme 
qu'un divorce au Mexique ... 
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Macintosh 

Vu le nombre de plus en plus grand 
des lecteurs de Pom's utilisant ce 
produil sympathique, nous vous of 
frons des ce iiuiu&ro une rubrique 
Macintosh specialisee, dont l'impor- 
tance croitra avcc lc temps. 

Apple //c 

La revue A+, dans son nurnero de 
juin, public unc liste des logiciels 
tournanl sur le nouvel Apple. Car. 
attention, la compatibility n'est pas 
aussi totale qu'on le souhaitcrait avcc 
les anciens programmes des autres 
Apple II. Voir a ce titre Particle de 
Guy Lapautre. 

Epistole (voir plus haut) est deja 
adapre et tourne avec la souns du 
nouvel Apple. A noter p.galement 
une extension pour le //c. le "cricket" 
de Street Electronics, qui lui ajoute 
une vniv rip femme, une voix. de 
robot, des effets sonores. des possibi- 
lity stereo et en prime une horloqe ! 
Pas mal pour un ordinateur qu'on di- 
sait "ferme". L'imagination des fabri- 
cants de penphenques n'est decide- 
ment pas en panne 

La radio communication 
avec I'Apple 

Transmettre des messages en radio- 
telegraphie, en recevoir. ou decoder 
les depeches ladio Liansmises par les 
agences de presse mondiales, e'est 
possible avec I'Apple. Et avec aussi 
quelques efforts, car les interfaces et 
logiciels ne sont pas importes actuel- 
lement. Avec la diffusion de nou- 
veaux Apple et iiulcunment la sortie 
du Ifc, et la vogue de la communica- 
tion, tout pourrait changer... 

Les messages radio sont en effet 
transmis soit en phonie (on les regoit 
en ciair sur un recepteur). soit en 
morse, soit encore en telegraphic II 
y a dfija quelque temps que les radio 
amateurs ont remisp an grpnier les 
manipulateurs pour se doter du cla- 
vier d'un micro-ordinateur, sur lequel 
ils pianofpnt lpurs messages Cette 
communication-la. regie par des lois 
strictes. est reservee aux passionnes 
tirulaires d'une licence (ils peuvent 
cependant utiliser les interfaces et lo- 
giciels que nous allons decrire). 



s les progres des microproces- 
sors permettent surtout de cons- 
truire a des prix raisonnables (dans 
les 3000 F) des decodeurs qui afti- 
chent sur un moniteur (ou imprirnent 
a la demande) et en clait lei messa- 
ges recus. Voir s'afticher sur Tecran 
une depeche venue de Tirana ou un 
message emis par un bateau en mer 
a mdiscutablement un cote magique. 
Avec un Apple, e'est encore mieux. 
car on peut stocker sur disquelte les 
messages regus. 



Pour recevoir des emissions lointai- 
ne$, il faut d'abord une bonne dii- 
tenne particulierement degagee. 
C'est un "must". Sans antenne, pas 
de reception. 

Vient ensuite un recepteur de mafic 
multibandes. Citons notamment le 
FRG7700 de Yaesu, ou mieux. T1CR 
71 d'Icom. Prix: entre 5.000 et 
10.000 francs. 

Pour relier le recepteur a une carte 
serie RS232C. il faut encore une in- 
terface. Vous ave2 le choix entre le 
CP1 d' Advanced Electronic Applica- 
tions Inc (200 dollars), Hnterfacell de 
Kantronics (270 dollars) ou encore le 
MFJ 1224 de Mrj enterprise (100 



Les messages decodes entrent dans 
I'Apple par l'extension scrie. Reste 
encore a gerer ces communications. 
C est l affaire des logiciels de Kantro- 
nics : Hamsoft. 30 dollars pour gerer 
Tecran et coniroler la Vitesse des 
transmissions: Hamtext (100 dollars) 
sert a sauver les messages su- dis 
quette. transmettre depuis une dis- 
quette, indiquer Theure des transmis- 
sions, etc. Attention, ce passe temps 
devtent tres vite obsedant. Bonjour 
les nuits blanches... 

Les tableurs 

Courant mai. Pom's a vu Practlcalc 
II (Apple '84. Londres). un tableur 
(nous en reparlerons) offrant du trai 
tement de texte. de la gestion de fi- 
chiers. de la consolidation. ... et ca- 
pable d'utiliser directcmcnt un disquc 
dur et des fichiers Basic. 

Nous avons aussi recu recemment. 
bien qu'il soit sorti depuis quelque 
temps deja. Visicalc Advanced 
Version de Visicorp : il s'agit la de la 
version avancee de Visicalc anterieu- 
rement disponible sur I'Apple /// seu- 
lement et longtemps attendue sur le 
//e. Une des particularites de VAV est 
d'au.toriser. comme Ya fait plus re- 
cemment Lotus 1-2-3. la pre-pro- 
grammation de sequences de tou- 
ches. En outre, les possibilites de 
formataqe et les fonctions sont nette- 
ment plus nombreuses. 

Flashcalc enfin. lui aussi produit de 
Visicorp, a fait son apparition a 
Apple Expo. Un des principaux ob- 
jectifs de Flashcalc, qui a beaucoup 
de points comrnuns avec Mayicalc, 
est d'assurer une rapidite de calcul a 
toutc epreuve. Nous n'avons pas cn 
core pu tester celle-ci en vraie gran- 
deur, n'ayant eu entre les mains 
qu'une version bridee a 6K. 

Disquettes de 
demonstration 

De nombreux lecteurs. soit de par 
leur eloiynemenl geographique, soit 
parce que leurs revendeurs sont mal 



approvisionnes ou peu disponibles. 
ont des difficulty a st faiie une idee 
des produits nouveaux. C'est pour- 
quoi Pom's a decide d'offrir a ses 
lecteurs la possibility d'acquerir a bas 
prix (celui des disquettes de Pom's, 
le meilleur rapport performance/prix 
du marche) les disquettes de de- 
monstration en sa possession, sous 
reserve bien entendu que le fabricant 
ou I'importateur du produit duime 
son accord explicite. Dans le cadre 
de ce nouveau service, nous of frons 
des a present, comme vous pouvez 
le voir sur le bulletin d'abonnement. 
les disquettes de demonstration de 
CX Systeme et de Jane. Les fabii- 
cants ou importateurs de logiciels qui 
seraient interesses par ce rnoyen tres 
rapide de faire mieux coniiaitie leuis 
produits peuvent nous proposer leurs 
disquettes. 

Adresses 

Advanced Electronic Applica- 
tions - PO Box C2160 - Lynnwood. 
WA98036 - USA. 

Artsci • 5547 Satsuma Au. - North 
Hollywood. CA 91601 - USA. 
ASAP - 3 avenue des Trois Peuples 

- 78180 Montignv le Bretonneux - 
Tel (3)043.82.33." 

BIP - 13 rue Due - 75018 Paris - Tel 
25b.44.63. 

Creative Peripherals Unlimited - 

1606 S.Clementine Anaheim. CA 
92802 - USA. 

Dark Star System - 78 Robin 
Hood Way - Greerifoid Middlesex - 
UB67QW - GB. 

Dune Associates - PO Box 1631 - 
Kailua - 1 1 196734 - GB. 
Intec - 41/45 Knights Hill Westnor- 
wood - London - SE 270HS - GB. 
Kantronics - 1202 E 23id Slieel - 
Lawrence, KS 66044 - USA. 
MFJ - Box 494 - Mississippi State. 
MS 39762 - USA. 

Micro-Periph - 62 rue Ducouedic - 
75014 Paris - Tel 321.53.16. 
Roger Wagner - 10761 Woodside 
Av.SuiteE - PO Box 582 - CA 920/1 

- USA. 

Softs mill l Corporation-1431 Dw- 

litle Drive - San Leandro. CA 945/7 

- USA. 

Sierra On Line - Coarsegold. 
CA93614 - USA. 

Softs mi th Corp (pour Friends and 
Lovers) - 2935 Whipple Road - 
Union City. CA 94587 - USA. 
Street Electronics - 1140 Mark 
Av. - Carpinteria, CA93013 - USA. 
TextPrint - 8 Blanchard Hd - Bur- 
lington. MA 01803 - USA. 
Practicorp Ltd. - Goddard Road - 
Whitehouse Industrial Estate - Ips- 
wich - Suffolk IP1 5NP - 
GB. 

Visicorp - 1 place Gustave Eiffel 

- Silic 241 - 94568 Rungis Cedcx 
Tel 687.61.01. 
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Les nouvelles du Macintosh 

Herve Thiriez 



On peut resumer le developpement 
du Macintosh a Paide (fun petit 
exemple comparatif : il a fallu deux 
ans et demi pour vcndre les 50.000 
premiers Apple I! Plus, sept mois 
pour les 50.000 premiers IBM PC. 
deux mols un quart pour les 50.000 
premiers Macs ... II y en avait partout 
a* Apple Expo sur les stands, des 
piles de cartons d'emballage de Macs 
etaient presentees, mais rres peu de 
stands pouvaient effectivement en 
proposer a la vente immediate. Les 
petite futes (parmi les revendeurs) qui 
s'en sont vite apercus n'ont pas at- 
tendu pour vendre leurs Macs plus 
cher que le prix public conseille, ce 
qui est peu frequent dans le monde 
de la micro-informatique ! Idem pour 
les disquettes 3,5 pouces : il ne res- 
tart plus que des Mernorex dont (sur- 
prise !) le prix a augmente des que 
fut constatee la rupture de stock des 
concurrents (Sony et Hewlett Pa- 
ckard). La rangon de la gloire ... 

Pour ma part, ie reste tout a fait en- 
thousiasme par le Mac, mais consi- 
dere qu'il faut absolument avoir un 
second lecteur de disquettes pour 
pouvoir travailler avec confort. Si 
Ton s'en prive, on est condamne a 
lonpjer avec les disquettes a la moin- 
dre lecture ou sauvegarde de fichier. 

Le logiciel 

Les programmes commencent a se 
multiplier. La liste des programmes 
deja disponibles ou pratiquement dis- 
ponibles (visibles mais non encore 
vendus) augmente sans cesse. Au ca- 
talogue Apple du 20 )uin, on liouvait 
MacWrite/MacPaint a 1.586 FF, Mul- 
tiplan U.S. a 2.206 FF et Basic Mi- 
crosoft a 1.696 FF. 

Deja disponibles ou sur le point de 
l'etre. nous avons remarque a Apple 
Expo : 

- Mulriplan en version frangaise; 

- Basic Microsoft en version fran- 
chise; 

- CX MacBase, qui n'a plus grand 
chose a voir avec CX Systeme; 

- Omnis; 

- PFS. avec File et Report; 

- La Pierre Mobile, jeu ecrU par 
Bruno Rives, que les lecteurs de 
Pom's ont deja vu a Foeuvre; Bruno 
est le responsable en France de la fa- 
mille Apple des produits 68000; 

- Eleugram, une disquette de jeux 
mensuelle dont le numero 1 etait 
propose a Apple Expo, vendue par 
Compusoft, une jeune entreprise 
franchise malgre son nom a conson- 
nance anglaise (en effet, ce nom 



sonne mieux que Calcumou ...); 

- et certe liste n'est pas limitative 

Attendus aussi a court terme : 
-Think Tank; 

- Chart de Microsoft; 

- le Pascal deja celebre du Macin- 
tosh; 

- Lotus 1-2-3 (pas encore de confir- 
mation officielle): 

-dB Master. 

Partjcuherement remarquable mais 
encore invendu en France, le carnet 
d'adresses d'Habadex. A t'ecran de 
Mac, un superbe graphisme repre- 
sentant un carnet alphabetique; il 
suffit de cliquer les lettres pour 1'ou- 
vrir. A mi-chemin entre 1' agenda et la 
base de donnees. Etonnant. La 
revue A+ de juin donne une liste 
detaillee des logiciels a para'ftre ou 
deja parus pour le Mac. Et notam- 
meni des juillet, les jeux d'Infocom 
(Zork, Infidel, etc.). Ceux de Penguin 
(Transylvania, The Quest) sont deja 
">les aux Etats-Unis. 



Peripheriques 

Le catalogue Apple du 20 juin pro- 
pose seulement le disque supplemen- 
♦taire (4.622 FF) et le clavier numeri- 
que (963 FF). 

Tout le monde pouvait voir au stand 
de Symbiotic a Apple Expo leur dis- 
que dur, tout recemment commercia- 
lise pour le Macintosh. II y aura bien- 
t6t du choix en la mariere avec le 
Davong et les autres, qui ne tarde- 
ront pas a se mettre de la parte. 

MacPaint 

II arrive avec MacPaint, alors qu'il 
semble y avoir au moins 20K dispo- 
nibles sur la disquette, que Ton ob- 
tienne le message "Le disque est sa- 
ture ( veuillez effacer des documents 
ou changer de disque". IS faut alors 
sortir. avec toutefois, heureusemenl, 
la possibility d'effectuer preaiabie- 
ment une sauvegarde. 

Pourquoi le disque est-il "sature" 
quaiid il semble encore y avoir de la 
place ? La raison en est la suivante : 
de facon automatique. MacPaint 
vous protege en permanence contre 
une extinction intempestive "des lu- 
mieres" en conservant automatique- 
rnent i'eldl da votre travail dans des 
fichiers baptises Paintl et Paint2. Ces 
fichiers disparaissent des que vous 
terming norrnalement une seance de 
travail avec MacPaint 



bi par contre il y a une interruption 
anormale, ces deux fichiers se trou- 
venl sur la disquette. grace a quoi 
votre prochaine seance debutera au- 
tomatiquement par le chargement dc 
Paintl el Paint2. le fichier etant alors 
baptise "Recupere" a l'ecran. 

II faut 20 a 30K pour loger a tout 
moment Paintl et Paint2. ce qui ex- 
plique par consequent le fameux 
message indiquant la saturation 
Vous pouvez d'ailleurs constater ce 
que nous venons de vous expliquer 
en etpignant votre Mac alors qu'un 
fichier MacPaint sans importance est 
charge : vous verrez en rallumant 
Fappareil (attendee quelques minu- 
tes) que les fichiers Paintl et Paint2 
se trouvent effectivement sur la dis- 
quette. I.ors dp. la mise en oeuvre de 
MacPaint, vous obtiendrez ensuite le 
chargement du fichier; il s'appelera 
"'Recuperet et les fichiers Paintl et 
Paint2 disparoitront du catalogue si 
vous quittez ensuite MacPaint de 
facon normale. 

Recopie d'ecran 

Si vous avez bien lu la documenta- 
tion, vous savez probablement que 
Ton peut a tout moment obtenir une 

recopie de l'ecran sur impnmante 
avec Commande-Shift-4 Par contre 
en faisant Commande-Shift-3, vous 
envoyez la recopie d'ecran sur dis- 
quette. ofi elle devient un fichier 
MacPaint sous le nom ScreenX 
(X=0, 1, 2, ... automatiquement). 

Ce fichier MacPaint est par conse- 
quent (comme tout fichier MacPaint) 
modifiable a loisir et integrable en to- 
tality ou en partie dans un fichier de 
texte MacWrite. 

Copie de disquettes 

Apple vient de sortir une disquette 
de copie rapide, permettant de co- 
pier une disquette entiere en quatre 
passes avec le seul lecteur integre. 
Pour aller plus vite, ce programme 
utilise la memoite Scran du Mac, qui 
se remplit alors de caracteres tartelus. 
Ne vous en faites pas. tout est nor 
nidi ... 

Utilisation de 
programmes americains 

Si vous utilises des programmes ra- 
menes des USA, ou non encore fran- 
cises. par exemple le Basic US et le 
Multiplan US de Microsoft, vous pou- 
vez les modifier de facon a 
utillser pleinement le clavie 
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et les caracteres accentues. La proce- 
dure a suivre est la suivantc . 

- effectuer prealablement une copie 
de la disquette a modifier (facultatif, 
mais on ne sait jamais); 

- redemarrer avec la disquette "Dis- 
que Systeme*' franchise livree avec le 
materiel; 

- ejecter cette disquette; 

- introduire la disquette du logiciel a 
modifier; 

- copier le fichier "System" de la 
disquette "Disque Systeme" sur la 
disquette du logiciel a modifies (quel- 
ques echanqes de disquettes peuvent 
etre necessaires). 



Bug sur la disquette 
MacWrite/Paint 

Avec la premiere serie des disquettes 
MacWrite/Paint. il etait impossible 
d'initialiser correcternent une dis- 
quette vierge a partir du bureau, ou 
de travailler correcternent avec plu- 
sieurs disquettes. Cela tient aux infor- 
mations contenues dans Its pistes de 
boot (celles qui se lisent a l'allumage 
de Pappareil) de la disquette Mac 
Write/Paint. 

Vous puuvez remedier au probleme 
avec Tune des solutions indiquees ci- 



• soit copier le logiciel Macw- 
rite/Painl sui une autre disquette; 

• soit demarrer a partir d"une autre 
disquette. rejecter, puis inscrer la 
disquette Macwrite/Pdinl. 

Bibliographic. 

Nous avons remarque deux ouvra- 
ges, dont ['analyse paraitra dans le 
numero de septemhre : 

- Mac. produit par Microsoft, avec 
une couverhire type graffiti rouge. 

- Macintosh, Multiplan. MacPaint, 
de Eddie Adamis chez Cedic/Nathan, 
a FF 



Courrier des lecteurs 

Alexandre Duback 



Si je prends la plume pour vous 
p.crire, e'est tout d'abord pour vous 
Whiter pour voire revue. En fait, je 
ne I'aurais pas fait il y a six mors. En 
effet, je suis possesseur d'Apple II 
Plus depuis un an et ayant entendu 
parler de Pom's, i'ai achete, peu 
apr&s I' Apple, les numeros 4, 5 et 6. 
N'etant qu'un novice, je me demait- 
dais ce que voulait dire le charabia 
des programmes ei parfois. des arti- 
cles. Mais, ayant progresse, j'ai relu 
recemment ces numeros et y ai 
trouve une foule de renseignernents 
et des programmes consistent 
n ayant nen a voir avec ceux d'au- 
tres revues. Je voudrars done savoir 
comment m'y abonnet. 
Dautre part j'ai relu V article sur 
Haifa dans le numero 5. Je voudrais 
aussi savoir a quel prix je pourrai le 
recevoir. 

Dominique Gilles - 91610 Ralan- 
courfEssonnc 

Merci pour votre lettre qui nous ras- 
sure sur le bien-fonde de notre politi- 
que editoriale de "nivellement par le 
haut'\ Je joins a cette lettre un bulle- 
tin d'abonnement a Pom's, sur le- 
quel vous trouverez tous les rensei- 
gnernents necessaires. 

En ce qui concerne le programme 
Haifa, vous le trouverez sur la dis- 
quette d'accompagnement du nu- 
mero 5. La disquette Haifa Source, 
quant a elle, reprend simplemeiil les 
programmes source en assembleur 
Lisa 2.5. qui n'avaient plus la place 
de se loger sur la disquette du nu- 
mero 5. Cette disquette interesse 
done les lecteurs qui souhaitent ana- 
lyser et/ou modifier le programme 
Haifa. Les disquettes du numero 5 et 



Haifa Source sont vendues 55 francs 
piece. 



Sur les 11 disquettes de Pom's que 
j'ai recues, j'en ai 3 qui ne bnotent 
plus. Pourriez-vous m'expliquer ce 
qui se passe et me dire s'il y a 
moyen de reparer autrement qu'en 
faisant 1NIT HELLO et en recopiant 
tous les fichfers par FID ? 

Monsieur Jean-Michel Velin - 50450 
Gavray 

Ce qui pourrait expliquer qu'il y ait 
parfois des problemes au niveau du 
boot, e'est que le DOS se Irouve sur 
le bord exterieur de la disquette. Si 
celle-ci a ete quelque peu ecrasee 
par les PTT. e'est en effet le bord qui 
souffre en premier. II est possible 
d'utiliser des logiciels tels que Locks- 
mith, Super Copy, Copy II — i— (4.1 a 
4.3) ... pour recopier seulement les 
pistes 0. 1 et 2 (celles du DOS), sans 
pour autant avoir a initialiser el a re- 
copier fichier par fichier. 



Carte Eve Chat Mauve 

L ablation du buffei dont je vous ai 
parle dans ma lettre (Pom's 12) n'est 
helas pas sans consequence, commc 
je le pensais initialement Je me suis 
apercu par la suite que cela empeche 
Visicaic Advanced Version de fonc 
tionner, ce logiciel ne reconnaissant 
alors p/us I' extension memoire 64K 
ni les routines 80 colonnes. Par 
conire. lancien Visicaic les reconnaft 
sans probleme. de meme que Multi- 
plan. Allez savoir pourquoi ... 

Jean-Piene Januel - 75009 Paris 



La rubrique reste done ouverte ... 

Par votre intermediaire, je. voudrais 
m'adresser aux possesseurs de //e 
qui envisagent d'acheter la carte 
Chat Mauve, afin de leur eviter de 
faire une betise. C'est vrai qu'on 
peut avoir la couleur. mais on peut 
aussi l'avoir avec un poste PAL- 
SEC AM et un cable a 100 francs. II 
est vrai qu'avec la carte Chat Mauve 
e.t le logiciel Purpiesoft, on peut veri- 
tablement faire du graphisme HGR 
couleur. C'est remarquable deffica- 
cite. Malheureusement, des que l'on 
fait un petit programme Basic de plus 
de 2.5K, il ecrase les routines du 
Purpiesoft et plus rien ne marche. 
Vous avez done une machine avec 
I28K dont 2.5 reellement utilisables. 
On n arrete pas le progres ! En outre, 
la carte ne permet plus d'imprimer 
avec le Pascal et une imprimante 
Epson ou Microline (NDLR : avec 
notre Oki92, cela marche): on peut 
enlever le circuit inteqre au-dessus du 
T de CHAT MAUVE, mais alors 
Apple Writer ne marche plus ... 
A. Delacourte - 59155 Faches Thu- 
mesnil 

Et voila ! Votre lettre se joint au dos- 
sier. 

NDLR - Aux dernieres nouvelles, il 
s'avere que la carte Eve Chat Mauve 
n'a rien a voir avec les problemes 
rencontres avec I' Epson. La carte 
graphique Epson n'admet pas que 
d'autres cartes utilisent le bus de 
donntes en meme temps quelle: le 
probleme rencontre avec la carte 
Chat Mauve se presente aussi avec 
des cartes horloge, ou d'autres 
cartes. Ce n'est pas le cas avec la 
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carte 80 colonnes etendue. car eelfe- 
d riutilisc que le conrtecteur auxi- 
Haire. Mercf, M. Januel. pour cette 
derniire information 



J'ai lu dans un numero de Pom's 
que, si tous les slots sont occupes, 
cela ne peut pas marcher Or, tous 
mes slots seront occupes. a pari le 
slot numero 7, avec les cartes que 
f envisage d'acheter. Qu'en pensez- 
vous ? 

Monsieur J-C Decret - Bordeaux 

On peut utiliser tous les slots simulta- 
nement. mais il se peut alors que. 
soit I'appareil ne "boote" plus, soit il 
le fasse mais connaisse des pannes 
aleatoires dues a la surchauffc. Tout 
eels tienl plus au type des cartes 
qu'a ieur nombre : certaines cartes 
"tirent" beaucoup et fonctionnent 
comme des ladialeurs. Si 1'apparei! 
ne boote plus, on peut recuperer la 
situation, dans certains cas, on rem 
plagant des composants standards de 
FApple par des composants de 
merne nature, mais plus puissants 
(voir puui cela votre revendeur). S'il 
y a surchauffe. on peut utiliser Tun 
des nombreux modeles dc ventila 
teurs specialises. De toute fagon. 
vous pouvez toujours emmener votre 
Apple chez votre revendeur pour voir 
s'il boote toujouis apres 1'adjoncQon 
des nouvelles cartes que vous envisa- 
gez d'acquerir. 



Dans le PQKEs a gogo. de Roland 
Jost (Pom's 11), je note le POKE 
214,255. Pour en sorhr. iauteur indi- 
que qu'il faut passer en langage ma- 
chine et faire "06:00". Mais le POKE 
inhibe les CALEs. Comment passer 
en moniteur sans le CALL - 151 ? 

S. Querret - 59760 Grande Synthe 

Votre remarque au sujet du POKE 
214.255 est tout a fait pcrtincnte. 
L'humoui rnaxquanf la suggestion de 
faire un CALL pour retablir la situa- 
tion, alors que les CALLs ne sont 
plub possibles apres le POKE, est en 
effet involontaire. 

Pour revenir en assembleur sans pas- 
ser pai CALL -151. Il sufflt d utiliser 
ce qu'indique Jacques Duma dans sa 
lettre publiee dans le Courrier des 
Lecteurs du Pom's 6 (page 66). Utili- 
sez un des numeros ^instruction 
entre 437760 et 440319, ce qui a 
pour effet de vous placer a un en- 
droit imprevu (et variable) en me- 
moire, par cxemple avec "440000 
A=l". A moins que vous n'ayez la 
malchance de tomber sur une bou- 
cle, vous finircz pas arriver sur un 
BRK (code 00), ce qui vous "plan- 
tera" et vous mettra done en mode 
moniteur. 

II ne restera plus alors qu'a faire le 



D6:00 qui annihilera I' effet du 
POKE, non sans loulefois faire dispa- 
raltre le programme Basic qui aurait 
reside prealablement en memoire. 



// sernble que Vecriture sur I'ecran ne 
rnarrhe pas dans MATCRAPH, parce 
que les tables ne figurent pas dans la 

liste parue dans le Pom's 10. Ne 
pourriez-uous pas les publier dans un 
prochain numero ? 

Pierre Arnaud - 92260 Fontenay aux 
Roses 

Cela rVa pas maiche car il y a un 
probleme avec la partie de AL- 
PHAGR publiee dans le Porns 10. 
Corrime la plupart des Iecteurs sont 
abonnes aux disquettes. ce probleme 
n'avait pas encore etc souleve. II y a 
en effet eu une troncature abusive et 
une partie du code a ete oubliee, de 
9272 a 928D. 

A titie coireclif, nous listons ci-des- 
sous le code hexa de ALPHAGR en 
entier. y compris la partie ou les chif- 
fres el les lettres ont et& definis a 
laide du programme de creation de 
polices de caracteres (Pom's 8). 



En reponse au courriei de M. Januel 
(Pom's 12). void la modification du 
programme MENU des disquettes 
Pom's qui pewuel I'lmpression sur 
une Epson avec interface Apple : 

70 POKE 34,24:PRINT D1$"PR#"S 

71 PKINT CHR$(0) 

72 PRINT CHR$(27) ,, A"CHR$(10) 

73 POKE 1657,80 

75 CALL 37989 

76 PRINT CHR$(27);CHR$(50) 

77 PRINT D$"PR#0" 

78 TEXT 

Alain Meizoz 



Je vous informe de la creation du 
club informatique "Bellegarde Info " a 
Bellegarde sui Valseiine, dans I'Ain 
pres de Geneve. Nous possedons un 
Apple //e en configuration de base, 
deux ZK81 et bieiUOt un oidinateui 
intermediate. 

Pierre Jean Giraud • 3 allie Paul 
Claude! - 01200 Bellegarde 



Avec Apple Writer 2.0 (et non Ye) et 
une Epson MX-82. comment faut-il 
faire pour obtenir les caracteres spe- 
cfaux ?J'utilise aussi le Magicalc fran- 
Qais qui, par ailiettrs, ne donne au- 
cune indication a* ce sujet. Comment 
faut-il faire ? Enfin. comment incor- 
porer des tableaux Magicalc en 
Apple Writer 2.0? 

Docteur Docteur Seror - 17, rue 
Georges Messier - 64400 Oloron 
Sainte Mane 



Pour utiliser des caracteres speciaux. 
je vous conseille "Donne* du caiac- 
tere a votre imprimante". du Pom's 
9, et "Les codes ASCII epluches" du 
Pom's 4. Pour Magicalc. il faut met- 
tre les caracteres comme pour Multi- 
plan, mais non precedes de l'accent 
circonflexe. 

Magicalc n'est pas tout a fait compa- 
tible Visicalc, comme vous pourrez le 
voir avec le fichier que nous publions 
dans ce numero (Leve-toi et brille). 
Enfin. pour incorporer des tableaux 
Visicalc ou Magicalc dans un traite- 
ment de texte qui utilise des fichiers 
TEXT, il suffit de les sauvegarder 
sous forme de fichiers d'impre&siou 
sur disquette (PRINT in SAVE tor- 
mat). 



Amelioration de GCS- 
COMPTE 

Michel Herlaut 

Je me permets d'ajouter une petite 
modification au programme de ges~ 
tion dp enmptp hanraiw de Domini- 
que Compere (Pom's 10). Le sous- 
programme que je vous propose id 
(10000 a 10520) caicuh le. snide, du 
releve du compte apres la verification 
des operations. En plus de ce sous- 
programme, il convient d'ajouter au 
programme les lignes suivantes : 

mi IF TEKliN = 1 THEN RElURPi 
3175 IF fli* / B R" 7FEN GOSUSf 10000 

: GOTO 30*0 
8667 IF TEMOlN = I THEN 8700 
8742 IF TEXDIM = 1 THEN RETUftM 
9622 IF TT = AND & = THEN GOTO 
3630 

9625 IF TEH31N = l fiND «ID* (TB$(B 

> f 2»,i ) = 1 * THEN SOTO %40 

9626 IF TEMOIN = 1 ft® B = m TT 

< > THEN 9640 
9645 IF TEPCIN = ! THEN RETURN 

La commande "R" permet le bran- 
chement vers le sous -program me. 
Les donnees necessaives sont le mois 
et Fannie de depart (MM.AA). Le 
sous-programme effectue alors la 
sauvegarde du mois en cours de trai- 
tement si necessaire. puis le calcul du 
solde en ne prenant en compte que 
les operations deja veiifiees, jusqu'au 
dernier mois cree. 

Je me permets d'ajouter encore deux 
lignes indispensablcs pour la bonne 
marche du programme original : 

9512 A2» = ST&$ (A2> 
11045 VTftB li HTflB 32: INVERSE ! PR 
INT HUM (IB* 10), 32, 9);: ICR 
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10000 REM 

10010 REM «♦ CflLCUL RELEVE «* 
10020 REM 
10025 TDOJN = 1 

10030 12% = 'H0IS,fW€E DE DEPART :° 
:L3* = "RELEVE": GOSUB 5500 

10040 iwhjt m,m 

10050 IF MS = ffl THEH 10120 
10060 MM* = STR* mUm = STR$ < 
ft9> 

10065 M = H5:fifi = f)5 

10070 REM 

10080 GOSUB 8620 

10050 603UB 2200 

10100 CL - NB: SOSUB H010 

loiio rem 

10120 R2 = W - t! SOSuB 5500 
10130 OfCRR GOTO 10300 

10140 If m = 12 imm = turn = a 
ft i- 1 

10150 m = mm + = 5tr» mim 

ft* = STR* (ftft) 
10160 HOIS* = TM*<1W: 30SUS 1400: 6 

OSUB 1210 
10170 DSNS = QUELLE* * MOiS* + ' ' 

♦ STR* (AM 
10175 PRINT 

10180 PRINT D*"VERIFY*DSN* 
10190 POKE 216,0: POKE 222,0 

GOSUB 8650: SOSUB 2200:0. = N 
B: SOSUB 11010:ft2 = MB - H 5 
OSUB 9610 
SOTO 10130 
10300 REM 

10310 POKE 216,0: POKE 222,0 

10320 m = m - » if m = o nm m 
= am = ftft - i 

10325 m = STR* (KM):flft* - STR« ( 
flfl) 

10330 SOSUB I400:W* = STR* Mill 
ft* = STR* (M) 

10340 hois* = mm 

10350 D5K* = LIBELLE* + HOIS* * " ' 

+ STR* m 
10370 REM 

10400 L3* = 'RELEVE":L2* ■ "RELEVE 
E COMPTE = » ♦ STR* (TT): GO 
SUB 5500 

10405 CftLL -868 

10450 TEM01N = 

10500 6ET U* 

10510 GOTO 3010 

10520 REM 



Le fichier ALPHAHCR de MAT- 
GRAPH etait incomplet dans la liste 
du numem 10 Void a ce titre cor- 
rectif la liste complete de AL~ 
PHAHGR. 
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9088- 00 
9090- 04 
9098- OA 
90A0- OA 
90A8- 14 
9080- 19 
9088- 15 
90 CO- 08 
90C8- 04 
90 DO- OB 
90D8- OB 
90EO- 08 
90E8- 00 
90F0- 04 
90F8- IF 
9100- OC 
9108- 
9110- 
9118- 
9120- 
9128- 
9130- 
9138- 
9140- 
9148- 
9150- 
9158- 
9160- 
9168- 
9170- 
9178- 
9180- 
9188- 
9190- 
9198- 
91A0- 
91A8- 
9180- 
9188- 
91C0- 
91C8- 
9100- 
9108- 
91E0- 
91E8- 
91F0- 
91F8- 
9200- 
9208- 
9210- 
9218- 
9220- 
9228- 
9230- 
9238- 
9240- 
9248- 
9250- 
9258- 
9260- 



11 
01 
11 
01 
01 
11 
04 
10 
03 
01 
11 
11 
OF 
11 
11 
OE 
04 
11 
04 
11 
11 
08 
02 
08 
08 
00 
FF 
FF 
FF 
FF 



00 00 00 
04 04 00 
00 00 00 
IF 05 05 

14 IF 13 
19 1C 14 
08 04 02 
04 02 02 
08 08 08 
IF 08 11 
04 04 00 
04 02 00 
00 00 00 

10 10 08 

11 19 15 
OA 08 08 
IF 01 01 

10 10 IF 
08 08 IF 
IF 01 01 
IF 11 10 

11 11 IF 
11 IF 10 
00 00 04 
04 04 02 
04 08 00 

00 02 04 
IF 11 1C 
11 15 13 
11 11 IF 
OF 11 11 

01 01 IE 
11 OF IF 
IF IE 01 
IE 01 01 
11 11 IF 

04 04 04 

10 10 11 

05 09 11 
11 

1 1 11 
11 

OF 05 09 
10 OF 
04 04 11 
OE II 11 

15 15 15 

11 OA 04 
OA 04 02 
04 02 01 

02 02 0E 
10 10 0E 
OE 00 00 
00 00 00 
FF 00 00 
FF 00 00 
FF 00 00 
FF 00 00 



00 00 
00 D4 
00 14 
IF 05 
13 08 
1C 06 
00 00 
02 04 
04 02 
00 00 
00 00 
00 00 

00 00 
04 02 
13 11 

08 08 
IF IF 

09 09 

01 01 
01 IF 
08 04 
II 11 

10 10 
00 00 
08 04 

00 IF 
08 10 
04 04 
OD 01 

11 II 
OF IE 
OF 11 

01 01 
01 OF 



0D 
11 



11 
11 



04 04 
0E 11 
01 01 
IB 15 
13 15 
11 11 



00 04 
OA OA 

14 IF 
05 IF 
04 02 

15 09 
00 00 

08 02 
00 11 
04 04 
00 00 
IF 00 

00 04 

01 01 
IF 08 
IF 10 

10 10 

09 09 
IF 10 

11 11 

02 01 
l c IF 
00 00 
00 04 
02 01 
00 00 
08 04 

00 04 
IE OE 
OF 11 

01 01 
11 11 
OF 01 
01 01 
11 OE 
11 04 

10 10 
99 05 
01 01 

11 11 
19 11 
11 OE 



H 81 If If 



11 IE 
IF 04 
11 11 
11 11 
15 15 
OA 11 
01 01 
IF OE 
01 01 
08 08 
04 OA 
00 00 
FF FF 
FF FF 
FF FF 
FF FF 



01 01 
04 04 
11 11 
11 OA 
15 OA 
11 11 
IF 10 

02 02 
02 04 
08 08 
11 00 
00 IF 
00 00 
00 00 
00 00 
00 00 



9268- 
9270- 
9278- 
9280- 
9288- 
9290- 
9298- 
92A0- 
92A8- 
92B0- 
92B8- 
92C0- 
92C8- 
92D0- 
9208- 
92E0- 
92E8- 
92F0- 
92F8- 
9300- 
9308- 
9310- 
9318- 
9320- 
9328- 
9330- 
9338- 
9340- 
9348- 
9350- 
9338- 
9360- 
9368- 
9370- 
9378- 
9380- 
9388- 
9390- 
9398- 
93A0- 
93A8- 
93B0- 
93B8- 
93C0- 
93C8- 
93D0- 
93D8- 
93E0- 
93E8- 
93F0- 
93F8- 
9400- 
9408- 
9410- 
9418- 
9420- 
9428- 
9430- 
943 
944 
9448 
9450 
9458 
9460 



FF FF 
FF FF 
01 21 
85 80 
EE C8 
92 4A 
OA OA 
E5 ED 
92 A5 
80 78 
AD 78 
78 92 
80 79 

78 92 

79 92 
8D 78 
FA AD 

92 85 

93 38 
F9 06 
FA 06 
ED 7A 

00 85 
F9 85 
85 FA 
7A 92 
91 EC 
85 ED 
A5 FA 
07 DO 

01 8D 
00 8D 
78 92 
E3 92 
2D 2D 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
52 46 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
7B FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FB FF 
FF FF 
7F FF 
FF FF 



00 00 FF 

01 OA 09 
11 32 A9 
72 92 C8 
Bl 85 85 
4A 4A 8D 
85 ED AD 
85 EC A9 
ED OA OA 
92 A5 EC 
92 90 02 
18 A5 EC 
92 18 AD 
80 7B 92 
8D 77 92 
92 A2 00 
78 92 85 
ED AC 78 
E? 20 8D 
F9 26 FA 
F? 26 FA 
92 85 F9 
FA 18 AD 
F9 AD 76 
A9 00 A8 
A9 00 A8 
E8 A9 04 
A5 F9 69 
69 00 85 
D7 18 AD 
7B 92 AD 
77 92 EE 
CD 72 92 
60 00 00 
2D 2D FF 
00 00 FF 
00 00 FF 
00 00 FF 
00 00 FF 
00 00 FF 
52 45 FF 
00 00 FF 
00 00 FF 
00 00 FF 
00 00 FF 
00 00 FF 
00 00 FF 
00 00 FF 
00 00 FF 
00 00 FF 
00 00 FF 
00 00 FF 
00 00 FF 
00 00 FF 
00 00 FF 
00 00 FF 
00 00 FF 
00 00 FF 
00 00 FF 
00 00 FF 
00 00 FF 
00 00 FF 
00 00 FF 
00 00 FF 



FF 00 00 
88 90 21 

00 A8 Bl 
Bl 85 85 
EF AD 73 
7A 92 OA 

73 92 38 
20 8D 79 
18 65 ED 
4A 85 EC 
69 7F 8D 
6D 79 92 

74 92 6D 
A9 00 60 
18 A9 00 
A9 00 85 
EC AD 77 
92 B9 A8 
7A 92 85 
06 F9 26 
38 A5 F9 
A5 FA E9 

75 92 65 
92 65 FA 
Bl F9 8D 
AD 7A 92 
18 65 ED 

01 85 F9 
FA 8A C9 
78 92 69 

77 92 69 

78 92 AD 
FO 03 4C 
2D 2D 2D 
FF 00 00 
FF 00 00 
FF 00 00 
FF 00 00 
FF 00 00 
FF 00 00 
FF 00 00 
FF 00 00 
FF 00 00 
FF 00 00 
FF 00 00 
FF 00 00 
FF 00 00 
FF 00 00 
FF 00 00 
FF 00 00 
FF 00 00 
FF 00 00 
FF 00 00 
FF 00 00 
FF 00 00 
FF 00 00 
FF 00 00 
FF 00 00 
FF 00 00 
FF 00 00 
FF 00 00 
FF 00 00 
FF 00 00 
FF 00 00 
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9470- 
9478- 
9480- 
9488- 
9490- 
9498- 
94A0- 
94A8- 
94B0- 
94B8- 
94C0- 
94C8- 
94D0- 
94DB- 
94E0- 
94E8- 
94F0- 
94F8- 
9500- 
9508- 
9510- 
9518- 
9520- 
9528- 
9530- 
9538- 
9540- 
9548- 
9550- 
9558- 
9540- 
9568- 
9570- 
9578- 
9580- 
9588- 
9590- 
9598- 
95A0- 
95A8- 
95B0- 
95B8- 
95C0- 
95C8- 
95D0- 
95D8- 
95E0- 
95E8- 
95F0- 
95F8- 



FF FF 00 
01 00 04 
36 34 3F 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
DO 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
00 00 00 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 

s % 

20 20 20 
20 2? 49 
4i 44 52 
20 20 27 
43 41 44 



00 FF FF 
00 IB 24 
3F 24 00 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
FF FF FF 
00 00 00 



00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 DO 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

00 00 00 

FF FF FF 

FF FF FF 

FF FF FF 

FF FF FF 

FF FF FF 

FF FF FF 

FF FF FF 

FF FF FF 

FF FF FF 

FF FF FF 

20 20 20 

20 20 20 

4E 46 4F 

45 53 27 

49 4E 46 

52 45 53 



00 00 
2D 2D 
00 00 

n 

FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
00 DO 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
00 00 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
FF FF 
20 20 
20 20 
20 20 
2E 43 
20 20 
4F 2E 
27 04 



Lecteur assidu de vote revue, j'ai- 
merais savoir si quelqu'un possede 
les notices d'emploi en frangais dc 
Magic Window et Locksmith 5. 0. 

Philippe Le Gucn 49, me Paul Bert 
- 54520 Laxou 

Comme vous le comprendrez certai- 
nement, il n'est pas possible a Pom's 
de vous tronsmettre des photocopies 
de docs de programmes commer- 
ciaux. Nous nous mettrions dans 
notre tort en recourant a de telles 
pratiques, et notre souhait de rendre 



service aux lecteurs ne peut aller jus- 
que la. A notre connaissartce, La no- 
tice en frangais de Magic Window 
existe (faite par Ordinateur Express - 
voir Pom's 11). mais pas celle de 
Locksmith 5.0. 

Heureux possesseur d'un Apple //<? 
et d'une imprimante Facit 4510. fe 
SUiS un de vos fideies lecteurs et vous 
appelle au secours. Des que je veux 
faire de la recopre d'ecran. je suis 
perdu 

Dans Pom's 9. vous avez eu I'excel- 
lente idee de publier le programme 
GrafText, qui nidiclie tres bien pour 
la Facit 4510 avec seulement quel- 
ques modifications. Je vous serais rc 
connaissant si vous pouviez. dans un 
prochain numero. proposer un pro- 
gramme de rccopic d'ecran HGR 
pour mon impiinidnte. 

Paul Genesio 80 rue de Rome - 
13006 Marseille 

Malheureusement, nous ne pouvons 
pas vous recommander ici de pro- 
gramme de copie d'ecran HGR pour 
la Facit. II n'existe pas de programme 
general de recopie d"ecran HGR, et 
chaque programme de ce type de- 
mande un certain temps de mise au 
point et, surtout. que Ton ait l'impri- 
mante (ou une bonne doc) sous la 
main. Nous ne connaissons personne 
ayant un programme adequat pour 
vorre imprimante. 

Tout ce que je peux faire pour vous. 
c est de publier vorre lettre, Ainsi, si 
un lecteur possede deja un tel pro- 
gramme pour la Facit. il pourra vous 
le faire savoir. Dont acte ! 

Stir les conseils d'un technicien d 'Ap- 
ple Seedrin, nous vous soumettons 
un probleme concernant Apple Wri- 
ter » il semble d % apres cette personne 
que votre revue ait fait paraftre un 
article repondant a notre question. 
Pour pouvoir employer Vimprirnante 
qui equipe notre systeme, nous 
devons envoyer le code ASCII nul 
(O), ce qui a Forigine n est pas possi- 
ble avec Apple Writer. Comment 
faire ? 

L LECA - Chateiier Conseil - 75015 
Paris 

Nous avons publie dans le numero 4 
de Pom's (ou Recueil No 1) Particle 



"Les codes ASCII epluches" qui 
permet de voir quels sunt le* uuacte- 
res a envoyer pour obtenir tel ou tel 
rode ASCII L'article "Donnez du ca- 
ractere a votre imprimante" du 
Pom's 9 montre comment vous pou- 
vez utiliser des codes imprimante a 
partir d'Apple Writer. Nous avons 
aussi dans le numero 12 un article 
plein de trues pour Apple Writer. 

Malheureusement. le code est un 
code bien special indiquanl la fin d'un 
fichier. Si on commence un fichier de 
TEXT par ce code, ce texte sera vide, 
et ce pas seulement avec Apple Wri- 
ter... Dilemne ! La solution vous est 
offerte dans le Pom's 10. au Courrier 
des Lecteurs (page 71) . il faut modi- 
fier le programme Apple Writer e. 

Message aux lecteurs ... 

Nous recevoiib de plus en plus de 
lettres nous demandant comment il 
faut faare avec la configuration W. 
Fimprimanle X, l'iulerface Y et le lo- 
giciel Z pour obtenir le resultat K ! 11 
y a tellement dc combinaisons possi 
bles que nous ne pouvons pas faire 
des recherches a chaque fois. Nous 
repondons done a ces lettres quand 
nous pouvons y aitivei rapideirient. 
mais pas autrement : a vrai dire, e'est 
d ailleurs le travail des fabricants de 
materiel el de logiciel. En outre, nous 
donnons ta priorite aux lettres nous 
parvenant accompagnees d'une en- 
veloppe limbree poui la reponse. 

Certains lecteurs nous ont pose des 
questions, suite a certaines informa- 
tions qu'ils ont pu lire dans une autre 
revue francophone sur Apple, ou a 
certains bruits. Nous leur precisons, 
pour repondre a ces questions, que : 

- le //c est incompatible avec le 

Duodisk comme avec les lecteurs du 
lie ou du II Plus; 

- le reseau Apple-Bus fonctionnera 
initialement sur 68000 seulement 
poui toub Lypes de fichiers. et par la 
suite (probablement) pour les fichers 
TEXT avec les families 6502 et 
68000; 

- a court terme, seul le Lisa peut 
servir d'outil de devcloppcmcnt pour 
le Macintosh; ulterieurement. ce sera 
aussi possible de developper avec 
deux "Macs v relies ensemble. ■ 
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Apple-tell comprend : 

• Jne carte Modem mrluant un 
decodeur Teletel 

• On toqiciei d Emulation de 
Terminal Mmitel ennchi de trois 
eblouissantes lonctions <ccIIog 
qw faisaient le plus defaut 
fcSQU'a preset! sur voire 
Mmitel) 

IMPRESSION : hmprimante de 
voire Apple est exploitee pour 
SOrtfr les copies papier dont 
W&5 gvez besoin lorsque vuus 
consuitez un serveur 

STOCKAGE : les diskettes e 
vofre Apple son: utilisees pour 
^•egistrer les pages dont la 
consultation vous esl 
-ecessaire 

t au format Teleiel (cest-a-dire 
SSeiS nut- voui les dvtY 'etuesi 

i er aiode Texte pur (ASCII* 
cou' exploitation locale 
jieneure. 

AUTOMATISME : lintelliger 
$j voire Apple est mobilisee 
ivtur acenmphr I interrogation 
Statomatique du serveut que 
vous lu> avez design© (appel 
frephomque. orientation 
"3ANSPAC. identification chow 
^ccessifs) enregistrer sur 
pap.er st ou SW disque les 
drofies (Jorisu!teeB. puis pour 
waiter celles-ci. en les 
rcorporant dans voire 
apcl'Cation. 

_es procedures d' interrogation 
som creees par I utilisateur sans 
ajcur language de 
yogr animation, grace au mode 
:aparcntts3Qgc Apolc Tell) 

Cvenernent du dernier 
51COB saiue pat tou-e la 
D'esse consacre Pomme d'Or 
1983 par (p jury Apple le % * 
modem Apple-Tell marque une 
T.utation decisive clans 
evolution des techniques 
.•'icjeotex en en'vironnement 
o f ofessionnel 

t point d'arret a la orofireratinn 
des matenels sur votre bureau 
leffet -miro-Sicob }. 

• Utilisation optimal* 1 ftes 
^essources dont vous disposez 
deja /disques. imonmante. 
icqicieis. etc h 

■ Utilisation possib3c on mode 
Terminal autani qu en n ioae 
Seweur fjusqu a quatre portesi 

• Enfm ffifi cest sans nourn ie 
ocint ie plus important) 
.I0NCTION entffi le monrie 
exteneu' ef les ouUls standards 

voire Apple I incorporation 
'Jts connees cans Apple-writer, 
Visicalc Mulliplan. PF5. Ouck 
Rift, etc . et h ieme dans vos 

sppiicolions DCrsonri'jIlcs 

iconipiatniife Kufyi frJJd 
commandos, fichier i dovient 

DQSSlbfe 




CARACTERlSTlQUES 
GENERALES: 

• Modem mulliniodes 

— 1 200 7b (full duplex). 1 200 

i half-duplex 

600(hait-ciupiex)juuifuil-cKj[)iexi 

— standards CCI11 m RH I 
i.cettc caractefiytiquti unique: 
rend accessiblos les suiveurs 
nord-anicricains. y CompriS par 
reseau telephonic^: commiiloi 
Sorties viiIhj 

composite (N & Bi <;l PmM 
couleurs 

• CXMripaltUo Afjf»i) 2 Atipl''? 
Apple 2e '48 K. unt iiis'|in:tli' 

• Fniu:hahli' rtfffts n itii|KtflO 
quel slot hbfo (i*J vol"? Appli- ** 

• 1 rarispaTencc loialr vis .i vis 
rtu systemo 
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a t mmiQNi u systi'inui^! Apfili- u-ii du p'ix v k> T 699/ T T V ^ 
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Lc FORTH en douceur, de Michel 
Henric-Coll. Editions EyroBes - 143 
pages- 90 FF. 

Cet ouvrage a ete concu rommp une 
etude progressive du langage Forth 
pour debutants en Informatlque. II a 
ete presume que le lecteur ne posse- 
dait pas encore de connaissance 
dans ce domaine et n'avalt pas non 
plus appris un autre langage de pro- 
grammation. C'est pourquoi il n'est 
pas structure en chapitres homoge- 
nes et exhaustifs. que Ton pourrait 
directernent consulter a la maniere 
d'un dictionnaire. Ceci dit, un glos- 
saire fourni en fin d'ouvrage se re- 
vele tres utile durant la lecture et plus 
tard, lors de ['utilisation du langage. 
A chaque chapitre est associe un en- 
semble d'exercices dont les corriges 

se trouvent en annexe. 

Jean-Luc Boyer 



Debutez Pn FORTH, de Leo Bro- 
die. Editions Eyrolles - 305 paqes - 
130 FF. 

Ce livre est la traduction francaise de 
rouvrage "Starting FORTH", preface 
par t'auteur du lanyaye, H.Moore. 
En premier lieu, cet ouvrage 
s'adresse a des debutants en infor- 
matique qui desirent s'inilter au lan- 
qage FORTH. Mais malgre cela. les 
infonnaticiens de metier y trouveront 
des informations trfia intercssantes 
dont l acces est facilite par une table 
des matieres complete et un resume 
des mots Foilli decompagn^s d'une 
indication de la page ou ils sont pre- 
sentes. A la description du langage et 
de ses possibility sont associes des 
dessins qui en facilitent la compre- 
hension. A la fin de chaque chapitre, 
un resume pennel d'en memoriser le 
contenu. et une liste de problemes 
est fournie. En conclusion, cet ou 
vrage original pdi sa presentation est 
tres complet. et devrait done satis- 
faire 1' ensemble de ses lecteurs. 

Jean-Luc Boyer 



Pangraphe par Jean-Pierre Petit 
(dessins en trois dimensions en Basic 
pour Apple II - Editions du P.S.I.). 

Ouvrage curicux, melant le plus 
grand serieux mathematique et la 
folie debridee de la bande dessinee 
d'anticipation. 

Une culture mathematique de base 
est a Ieuidenrp necessaire pour se 



dinger sans trop de difficultcs dans le 
labyrinihe des lignes trigonometri- 
ques. Une connaissance solicit? du 
Basic est cgalcmcnt necessaire pour 
suivre la "traduction" en programme 
de nombre d'options. Mais un grain 
d'humour est tout aussi indispensable 
poui ne pas s'irriler des faceties de 
BEHN1E ou d'ARTHUR (de char- 
mants robots)... 

J'ai airne ! 

Avec un air de ne pas y toucher. 
Pauteur emmene son lecteur assez 
loin, aussi bien dans les lois de la vi- 
sion binoculaire que dans les ele- 
ments He geometrie descriptive per- 
mettant de comprendre en pro- 
fondeur la formation et 1'interpreta- 
tion des images. 

Cela etant, il ne faut pas croire qu'on 
va pouvoir creer avec Pangraphe un 
systeme de dessin revolutionnaiie. 
ultra-rapide et ultra-precis. Pangra- 
phe est essentiellement un outil di- 
dactique. meme si des utilisations 
reeiles peuvent sappuyer sur les pro- 
grammes. Mais l'ecriture de quelques 
modules en assembleur ne serait pa& 
un perfectionnisme douteux si on 
voulait vraiment en faire un outil 
operationnel. 

Un regret : le millier d' instructions 
(au moins) que represenle Pangra- 
phe peut bien evidemment etre tape 
au clavier, mais au prix de combien 
d heures et de cornbien d'erreurs ? 
J 1 en ai tape un certain nombre pour 
faire des tests et j'ai eu des proble 
meS avec Tun des traces. Est-ce une 
erreur de programmation. de typo- 
graphic ou de frappe ? Au bout 
dune demi-heuie, j'ai dbdndonne... 
Pourquoi diable. puisque c'est 1" esprit 
de la collection "Utilisations de lordi 
nateur", ne pas avoir accompagne" ce 
livre d'une disquette ? 

Une petite pointe bete et mechante. 
pour punir Fauteur de m'avoir fait 
tcllement travailler sur mon clavier : 
le LOMEM, sur TApple. n'a jamais 
permis de loger le programme au- 
dessus de la valeur fixee, mais uni- 
quement les variables. Soit dit tout a 
fait entre nous, si le programme ne 
tenait pas dans les 14K disponibles 
sous la page 2. comment pourrait-ii 
tenir entre le haut de cette page et le 
DOS (nettement moins de 14K) ! 

Guy Mathieu 



Le systeme MemOos par Pierre 
Cfefc - EdiTests - 102 pages - 90 F. 



Apres un rapide historique du pro- 
duit et de ses createurs. cet ouvrage 
presents les differentes instructions 
du MemDos, tant en ce qui conceme 
la gestion des masques d'en- 
tree/sortie que celle des fichiers 
On regrettera un certain manque de 
rigueur au niveau de 1" introduction 
des concepts dans la partie descrip- 
tive "litteraire". C'est ainsi que le 
programme illustrant la restitution des 
informations a I'ecran s'articule sur la 
lecture d'un fichier. alors que les ins- 
tructions de lecture des fichiers ne 
sont rraitees que dans les pages sui- 
vantes. De meme. on voit apparaTtre 
des tests du type "IF WS > 0..." 
sans que le rnlp particular de cstte 
variable WS dans le systeme 
MemDos ait ete prealablement expli- 
que clairement. 

Par ailleurs. il n'est pas fait expiicite- 
ment mention de certaines precau- 
tions d'emploi. comme la necessite 
de remettre les vanables d'un mas- 
que a zero avant une operation de 
saisie (sinon les anciennes valeurs 
sont conservees par defaut alors que 
Futilisateur croit avoir saisi une don- 
nee "vide" par un RETURN a vide), 
ou les risques que comporte une ins- 
truction LET"#R..." sur un fichier a 
acces par cle apres une instruction 
LET'X.." si le fichier n'a pas ete re- 
ferme puis re-ouvert avant sa reorga- 
nisation. 

A porter au credit de cet ouvrage 
une presentation par oidre dlphdbeti- 
que des instructions, sous forme de 
fiches techniques reprenant la syn- 
Idxe et le champ d'application de 
chacune d'elles. 

Mais le programmeur desirant s'initier 
a la pratique du MemDos Lirerd sui- 
tout profit de I'exemple d'application 
propose. II s'agit en effct d'un pro 
yidinine developpe en detail, de la 
conception des masques de saisie 
jusqu'a l'ecriture complete des diffc 
rents modules de traitement en pas- 
sant par la definition des structures 
des fichiers necessaires. On y trouve 
fiiidlemenl une presentation conden- 
see et concrete des possibility du 
systeme. 

En conclusion, re livre pent apporter 
une aide cornplementaire a la lecture 
de la documentation livree avec le 
systeme (et toujoUrs aussi touffue...). 
mais il aurait gagne, du point de vue 
de 1'utilEsateur debutant, a une de- 
marche plus progressive et mieux 
structurec dans ses developpements. 

Alexandre Duback 
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Les autres disquettes de 
Pom's 

Pom's a lance\ a. ['occasion de son 
precedent numero. deux disquptrps 
moins ludiqucs. proposees chacune a 
450 FF TTC 

Disk Manager, de Dan Steerey, est 
nn programme utilitaire qui permet 
de recreer les commandes du DOS 
et de programmer simplement. a par- 
tir Hu Rasie. des utilitaires personnali- 
ses de gestion du disque qui seraient 



beoucoup plus longs a programmer 
en assembleur. C'est a la fois un pro- 
gramme d'une grande utility et i in 
excellent outil pedagogique pour 
comprendre le DOS. Quatre utilitai- 
res. ecrits a Paide du Disk Manager, 
sont fournis en prime sur la dis- 
quette : Utili-Disque (reconstruction 
de disqupttp. verification. ...). Ultra- 
Copie (programme de backup ires 
rapide). Edicat (editeur de catalogue) 



et Multi-Disque Caere des firhiers de 
catalogues, opere des tris. ...). Docu- 
mentation de 50 pages. 



DBSTAG : disquette CP M pour la 
creation de statistiques et de graphi- 
qties a base d'histogrammes (impres- 
sion non graphiquej a partir de fi- 
chiers de donnees sur DBASE II. Ce 
logiciel peut exploiter, sans limitation 
ni transformation, toute base de don- 
nees construite sous DBASE 11. II 
peut fonctionner seul. ou en sous- 
programme d'un programme ecrit 
par Futilisateur. Documentation de- 
tail lee. comportant un exemple traite. 
imprimable a partir de la disquette. 




LA PHOTOCOMPOSITION EN PROLONQEMENT DE LA 




I R ANS.MK I I K/ .NOIS VOS rEXTES 
PAR TELEPHONE 



DONNEZ-NOl S VOIRE DISQUETTE _1 




Les textes de Oos articles, catalogues, amiuakes ou brochures 
saisis sur ootre APPLE sont enVoyes directement stir notre photocom- 
pvseuse. 

Nous Vous evitons ainsi, le cout et (e temps de la saisie supple- 
mentaire Hue necessite le traitement traditionnei de la photocompo- 
sition ao&nt ('impression des documents, si tSous le desirez nous pou- 
Vons etjalement nous charger de ('impression et du brochaeje. 




NOTRE REFERENCE.- LA REVUE POM'S 



TlUmm '32818.63 



morocotmstm* ceswi oi ftcitn*s 

T*AH$M$$)QH OS 30HH£tS MUtlllltMl Dt 11X715 



'Set '5 ApU?ijb *v *)r 



Pom's n° 13 
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pom's 



la disquctte HAIFA Source □ an prix de 55 F la disquette (cf. Pom's n° 5) 



• Ie logiciel H-BASIC 

• Ie logiciel MUSIC 

• Ie Disk Manager 

• DBSTAG (CP/M) 

• Disquette de jeux A 

• Disquette de jeux B 

• le logiciel BASICIUM 

• la disquette de demo 

□ CX Systcme □ Jane 



□ au prix de 150 F (cf. Pom s rr 8) _ 

□ au prix de 80 F (cf. Pom s n" 10) _ 

□ au prix de 450 F (cf. Pom's rr 11) 

□ au prix de 450 F (cf. Pom's n° 11) 

□ au prix de 80 F (cf. Pom's n° 12) 

□ au prix de 80 F (cf. Pom's n° 12) 

□ au prix de 150 F (cf. Pom s rr 13) 
au prix de 55 F la disquette 



Recueil n° 1-de Pom's (rr 1 a 4) 

□ avec ses 3 disquettes au prix de 280 F . 

□ sans disquette au prix de 130 F 



Montant 
TTC 



f~1 les 3 disquettes seules au prix de 150 F_ 

• Recueil n" 2 de Pom's (n 5 a 8) 

l~~l avec ses 4 disquettes au prix de 320 F _ 
□ sans disqueUe au prix de 130 F_ 



□ les 4 disquettes seules au prix de 190 F 

Je desire recevoir : 

• les numeros de la revue Pom's []4 ] 7 

au prix de 35 K le numero 



□ 8 



• les numeros de la revue Pom's | ~] 9 

au prix de 40 F le numero 



□ 10 Dll □ 12 □ 13 



• les disquettes d'accompagnement des numeros □ 1 □ 2 □ 3 □ 4 

□ 5 Q6 Q7 □& D9 niO Dll D12 □ 13 

au prix de 55 F par disquette 



Je desire m'abonner poui 6 numeros a partir du n ? 

O sans disquette au prix de 200 F 

□ avec disquettes au pnx de 480 F 



TOTAL : 



Envoyez ce bon dc co'rnmande et votre reglement a : 

Editions MEV — 64-70, rue des Chantiers — 78000 Versailles 

Norn 



Adresse 



Ces tarifs corriprennent renvoi postal en France Metropolitaine, CEE et Suisse (voie aerienne exceptee) 
Supplement avion : 10 F par numero et / ou disquette 



74 



Pom's 13 




0752 



supplement de 64 pages 
cahier de vacances 












EN VENTE 
DANS TOUS LES 
KIOSQUES 




a 1'essai : Casio PB700, 

Electron, M05 

les ordinateurs autonomes 




asie, logo 
les fiches programmes 



Avignon : le 2 
Festival du logiciel 





GRAND CONCOURS 

GAGNEZ DES ORDINATEURS 



AVEC f ranee infer LT 



IM 2867-6 SP-25H JUILLET-AOUT 84 - 25 F BELGIQUE 207 FB- CANADA 3.65 S C- SUISSE 7.5 FS 



La oration 




Pomme d'Or 84 du meilleur logiciel 

L'informatiquc appartient aux creaieurs. Artistes de l'ordinateur : craquezet 
croquez la Pomme d'Or Apple dumeillair tfigide I jusqu'flu 30 octobre 1984, pour 
votrc creation, Apple vous offre la consecration. Votre concessionnaire-panain 
vons asSiStera dans la mise en forme et le pre-tesl de votre logiciel. Chaque laureai 
recevra. outre le Trophee, un Macintosh el verra son programme ftlite et distribue . 
Pionniers de la nouvelle culture, par votre imagination devenezstar de la program 
mation. Avec Apple, apprenez Inomme a la machine. 



—Cippkz 



le gout du savoir 



Pourobtenir le reRlemeni el voiredossierde pan icipation. faite> tampomier leampon-rcponse d-mini r~ 
parleCmicessiunnaire agree Apple da voire cluuv et adrww-le pour tnscripiion a Apple Education 
i I'atteminn de Jean-Luc U'bnm. avenue de I'Oceanie. Z.I. de Courtabceuf. *)1<> i i Les \ lis. BP I5J 
Tfil lM 528.01.ft.Veuflbs m mscrire a la Pomme d'Or Apple du meilleur logiciel 

Norn Prtnom 

Adressc , 

Profession Telephone 



Taiinwn du CuiiLVMiuunaire 



'I* mim Apple et le logo Appk snnt des mari(tie> depose!' par Apple Computer Inc " 



Nooi du Concessionnaire . 



J 



